我的文档作为带有应用程序的文档

要想一下子就替换掉很多个单词文档中的内容，我们得使用VBA的办法才能实现，下面是方法，请过目。

一、前期准备

下面是具体操作步骤。

一个，首先将需要批量替换的多个单词文档放在同一文件夹下面。

b，新建一空白单词文档，右击空白工具栏，单击"控件工具箱",就可以看到屏幕上调出的控件工具箱。

c、在控件工具箱上单击"命令按钮",文档中就放置了一个按钮了。

d、双击该按钮，进入动词代码编写模式，将以下代码复制进去。

二、命令按钮的代码

私有子命令按钮1 _单击()

申请。屏幕更新=假

将我的密码设为字符串，我的路径设为字符串，我的密码设为整数，我的文档设为文档

使用应用程序。文件对话框。Title='选择目标文件夹'

如果Show=-1然后

myPath=.选择编辑项(1)

其他

出口接头

如果…就会结束

以…结尾

myPas=InputBox('请输入打开密码：')

使用应用程序。文件搜索。查找=我的路径。文件类型=msoFileTypeWordDocuments

如果。然后执行0

对于i=1到。FoundFiles。数数

设置我的文档=文档。打开（文件名：=。FoundFiles(i)，Passworddocument:=myPas)

选择。查找。清除格式

选择。查找。替换。清除格式

选择。发现。文本='OfficeStudy '。替换。文本=' '。向前=真。Wrap=wdFindAsk。格式=假。匹配案例=假。匹配整个单词=假。匹配字节=真。匹配通配符=假。匹配声音相似=假。匹配单词形式=假

以…结尾

选择。查找。执行替换：=wdReplaceAll

我的文档。救援

我的文档。关闭

设置我的文档=无

然后

如果…就会结束

以…结尾

申请。屏幕更新=真

末端接头

保存上面代码，退出动词编辑模式，返回单词文档界面。

单击选中该按钮，再单击控件工具箱的第一个按钮"退出设计模式"。

最后，就可以进行测试：再次点击按钮，就会发现该文件夹下面的所有单词文档中的办公室研究被替换为''了。

说明：在实际使用中，可以更改上面代码中的''引号里的字符内容为实际需要批量替换的内容即可。如下所示。文本='OfficeStudy '。替换。文本=