用VBA批量替换多个Word文档中同一内容 |
您所在的位置:网站首页 › vba搜索word文件内容 › 用VBA批量替换多个Word文档中同一内容 |
利用VBA可以轻松地将某文件夹下的所以WORD文档中的某个字符串全部替换为其他字符串。下面是具体操作步骤。 第一,首先将需要批量替换的多个Word文档放在同一文件夹下面。 第二,新建一空白Word文档,右击空白工具栏,单击“控件工具箱”,就可以看到屏幕上调出的控件工具箱。 第三,在控件工具箱上单击“命令按钮”,文档中就放置了一个按钮了。 第四,双击该按钮,进入VB代码编写模式,将以下代码复制进去。 Private SubCommandButton1_Click() Application.ScreenUpdating = False Dim myPas As String, myPath As String, i As Integer, myDoc AsDocument WithApplication.FileDialog(msoFileDialogFolderPicker) .Title ="选择目标文件夹" If .Show =-1 Then myPath = .SelectedItems(1) Else Exit Sub End If End With myPas = InputBox("请输入打开密码:") WithApplication.FileSearch .LookIn =myPath .FileType =msoFileTypeWordDocuments If .Execute> 0 Then For i = 1 To .FoundFiles.Count Set myDoc = Documents.Open(FileName:=.FoundFiles(i),Passworddocument:=myPas) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "中微子工作室" .Replacement.Text = "www.jihetu.com" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll myDoc.Save myDoc.Close Set myDoc = Nothing Next End If End With Application.ScreenUpdating = True End Sub 第五,保存上面代码,退出VB编辑模式,返回Word文档界面。 第六,单击选中该按钮,再单击控件工具箱的第一个按钮“退出设计模式”。 第七,进行测试:点击按钮,选择要放置多个WORD文档所在的文件夹,确定后即可完成!注意如果WORD文档没有加密的话,密码项就不填,直接确认。 你会发现该文件夹下面的所有WORD文档中“中微子工作室”已被替换为“http://www.jihetu.com”了。
说明:在实际使用中,可以更改上面代码中的""引号里的字符内容为实际需要批量替换的内容即可。如下所 示。 .Text = "中国" .Replacement.Text ="China"
附:相关对象说明 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属性 该属性用于设置选择内容中需查找或替换的文本。 |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |