2022年VB查找并替换WORD文档中的字符串

1、基本要求：需安装 WORD Function WordReplaceFileName As String, SearchString As String, ReplaceString As String, Optional SaveFile As String = , Optional MatchCase As Boolean = False As Integer On Error GoTo ErrorMsg 函数运行时发生遇外或错误, 转向错误提示信息Dim wordApp As New Word.Application Dim wordDoc As New Word.Document Di

2、m wordArange As Word.Range Dim wordSelection As Word.Selection Dim ReplaceSign As Boolean Dim I As Integer 判定将要替换的文件是否存在 If DirFileName = Then 替换文件不存在 MsgBox 未找到 amp; FileName amp; 文件 提示替换文件不存在信息 WordReplace = -2 返回替换文件不存在的值 Exit Function 退出函数 End If Set wordApp = CreateObjectWord.Application 建立 WOR

3、D实例 wordApp.Visible = False 屏蔽 WORD实例窗体Set wordDoc = wordApp.Documents.OpenFileName 打开文件并赐予文件实例Set wordSelection = wordApp.Selection 定位文件实例Set wordArange = wordApp.ActiveDocument.Range0, 1 wordArange.Select 激活编辑位置I = 0 初始化替换次数值ReplaceSign = True 初始化是否替换成功标志Do While ReplaceSign 指定文件编辑位置ReplaceSign =

4、wordArange.Find.ExecuteSearchString, MatchCase, , , , , , wdFindContinue, , ReplaceString, True 查找并替换 判定查找并替换是否成功, 假如成功替换次数值递增1 If ReplaceSign = True Then I = I + 1 End If Loop MsgBox 已完成对文档的搜寻并完成 amp; I amp; 替换； 提示总替换次数 假如替换成功,就提示是否储存If I 0 Then 判定是否需要另存If TrimSaveFile Then 需要另存If DirSaveFile = The

5、n wordDoc.SaveAs SaveFile 文件另存为 Else 询问是否替换文件, 假如不替换就舍弃本次操作, 否就存在本次操作替换 = If MsgBox是否替换 amp; SaveFile amp; 文件？ , vbYesNo + vbQuestion, vbYes Then wordDoc.SaveAs SaveFile 文件另存为 End If End If Else If MsgBox是否储存对 amp; SaveFile amp; 更换？ , vbYesNo + vbQuestion, 储存 = vbYes Then wordDoc.Save 储存在原文件中End If

6、End If End If WordReplace = I 返回替换次数wordDoc.Close 关闭文档实例wordApp.Quit 关闭 WORD实例Set wordDoc = Nothing 清除文件实例Set wordApp = Nothing 清除 WORD实例Exit Function ErrorMsg: MsgBox Err.Number amp; : amp; Err.Description 提示错误信息WordReplace = -1 返回错误信息值wordDoc.Close 关闭文档实例wordApp.Quit 关闭 WORD实例Set wordDoc = Nothing 清除文件实例Set wordApp = Nothing 清除 WORD实例End Function 留意事项： 单击在菜单 “ 工