用VBA批量替换多个Word文档中同一内容
来源:互联网 发布:eclipse js编辑器插件 编辑:程序博客网 时间:2024/06/14 03:40
第一,首先将需要批量替换的多个Word文档放在同一文件夹下面。
第二,新建一空白Word文档,右击空白工具栏,单击“控件工具箱”,就可以看到屏幕上调出的控件工具箱。
第三,在控件工具箱上单击“命令按钮”,文档中就放置了一个按钮了。
第四,双击该按钮,进入VB代码编写模式,将以下代码复制进去。
Private SubCommandButton1_Click()
Application.ScreenUpdating = False
Dim myPas As String, myPath As String, i As Integer, myDoc AsDocument
WithApplication.FileDialog(msoFileDialogFolderPicke
End With
myPas = InputBox("请输入打开密码:")
WithApplication.FileSearch
End With
Application.ScreenUpdating = True
End Sub
第六,单击选中该按钮,再单击控件工具箱的第一个按钮“退出设计模式”。
第七,进行测试:点击按钮,选择要放置多个WORD文档所在的文件夹,确定后即可完成!注意如果WORD文档没有加密的话,密码项就不填,直接确认。
说明:在实际使用中,可以更改上面代码中的""引号里的字符内容为实际需要批量替换的内容即可。如下所
示。
.Text = "中国"
附:相关对象说明
1.Find对象
该对象代表查找操作的执行条件,其属性、方法和“替换”对话框中选项一致,具体如下所述:
(1)Font属性
该属性由于返回或设置Font对象,代表指定对象的字符格式。
(2)Wrap属性
该属性用于设置在搜索时进行的相关操作,可通过常量进行赋值,具体如下所述:
A、wdFindAsk常量:搜索完毕后,显示是否搜索文档的其他部分的消息框。
B、wdFindContinue常量:搜索完毕后,继续执行。
C、wdFindStop常量:搜索完毕后,停止执行。
(3)Format属性
该属性用于设置是否在查找操作中包含格式。
(4)MatchCase属性
该属性用于设置在查找时是否区分大、小写。
(5)MatchWholeWord属性
该属性用于设置是否在查找时仅对完整单词进行匹配。
(6)MatchByte属性
该属性用于设置是否在查找时区分全角和半角的字符。
(7)MatchWildcards属性
该属性用于设置是否在查找时允许使用查找通配符。
(8)MatchSoundsLike属性
该属性用于设置是否在查找时返回与待查文字发音相近的单词。
(9)Execute方法
该方法用于执行替换或查找操作。
(10)ClearFormatting方法
该方法用于清除替换或查找的内容。
2.Replacement对象
该对象代表查找和替换操作的替换条件,其属性、方法和“查找和替换”对话框中的选项一致,具体如下所述:
(1)Text属性
该属性用于设置选择内容中需查找或替换的文本。
- 用VBA批量替换多个Word文档中同一内容
- word vba批量替换文件内容并批量修改文件名
- VBA实现批量修改Word文档的页脚内容
- WordSR 在多个Word文件中批量查找替换
- 在多个Word文档中查找指定文件内容
- Excel表格内容批量添加到多个word文档中
- Word文档用通配符批量替换日期格式
- word中批量替换字体
- c#如何合并多个word文档中的内容到一个word中
- Word 2007 POI 替换文档内容
- word VBA——用尾注内容替换文中相应引用位置的尾注编号
- 将word文档按分页另存为多个word文件的VBA代码
- VBScript/VBA批量合并多个Word文件到一个文件
- java poi组件 读取word文档 替换文档 内容 图片
- poi操作word文档,以07版本为参考,将word文档中图片替换为文本(替换文本也一样),读图片可选文字内容
- 一个word文档中,多个表格的批量调整(根据窗口调整表格和添加表格水平线)
- EXCEL:读取多个WORD文档文件到EXCEL同一工作表
- Sql批量替换所有表中内容
- navicat将sqlserver数据库导入到mysql数据库,无法打开文件问题
- 数据结构实验之排序一:一趟快排
- UVA - 297 Quadtrees(四分图)
- EJB3 学习笔记五
- SQL注入攻防(PHP语法)
- 用VBA批量替换多个Word文档中同一内容
- PowerDesigner中的继承方式
- C语言itoa()函数和atoi()函数详解(整数转字符C实现)
- Agri-Net(POJ 1258)(裸最小生成树)(Prime算法+Kruskal算法)
- 呵呵哒
- ionic angularjs安装过程详解
- Imageloader简化版
- 异常处理记录和工具类
- php001-简介等 + php运行环境搭建