當需要批次替換多個文件同一內容時，一個一個文件當開啟修改耗時耗力，可以使用宏來實現批次修改。具體方法如下。

在電腦上新建一個Word文件，點選開發工具—宏。然後輸入宏名稱並點選建立。

點選建立後，在彈出的宏編輯介面輸入以下宏程式碼，然後儲存退出。

Sub 替換文件內容（）

Application。ScreenUpdating = False ‘關閉螢幕閃

Dim myFile$， myPath$， i%， myDoc As Object， myAPP As Object， txt$， Re_txt$

Set myAPP = New Word。Application

With Application。FileDialog（msoFileDialogFolderPicker） ’允許使用者選擇一個資料夾

。Title = “選擇目標資料夾”

If 。Show = -1 Then

myPath = 。SelectedItems（1） ‘讀取選擇的檔案路徑

Else

Exit Sub

End If

End With

myPath = 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 With

End If

myDoc。Save

myDoc。Close

myFile = Dir

Loop

myAPP。Quit ‘關掉臨時程序

Application。ScreenUpdating = True

MsgBox （“全部替換完畢！”）

宏程式碼編輯完成後，再次進入宏介面點選執行，執行宏後選擇文件所在資料夾，然後輸入需要替換和被替換內容，內容替換完成後關閉Word介面即可。