1、第一步打开WORD，视图>宏>查看宏。
2、填写名字，点击创建。
3、先全选删除窗口里面的内容，再复制以下代码粘贴进去，第13行有个DOCX格式，如果文件是DOC格式的需要更改一下。Sub CommandButton1_Click()Application.ScreenUpdating = False '关闭屏幕闪Dim myFile$, myPath$, i%, myDoc As Object, myAPP As Object, txt$, Re_txt$Set myAPP = New Word.ApplicationWith Application.FileDialog(msoFileDialogFolderPicker) '允许用户选择一个文件夹 .Title = "选择目标文件夹" If .Show = -1 Then myPath = .SelectedItems(1) '读取选择的文件路径 Else Exit Sub End IfEnd WithmyPath = myPath & ""myFile = Dir(myPath & "\*.docx")txt = InputBox("需要替换的文字：")Re_txt = InputBox("替换成：")myAPP.Visible = True '是否显示打开文档Do While myFile <> "" '文件不为空Set myDoc = myAPP.Documents.Open(myPath & "\" & myFile)If myDoc.ProtectionType = wdNoProtection Then '是否受保护 With myDoc.Content.Find .Text = txt .Replacement.Text = Re_txt .Forward = True .Wrap = 2 .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute Replace:=2 End WithEnd IfmyDoc.SavemyDoc.ClosemyFile = DirLoopmyAPP.Quit '关掉临时进程Application.ScreenUpdating = TrueMsgBox ("全部替换完毕！")End Sub
4、然后关掉VB窗口，回到视图>宏，查看宏。
5、选择路径，输入文字，输入替换文字，点击确定，等待替换完成
