操作步驟。

　　第一，首先將需要批次替換的多個Word文件放在同一資料夾下面。

　　第二，新建一空白Word文件，右擊空白工具欄，單擊“控制元件工具箱”，就可以看到螢幕上調出的控制元件工具箱。

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

Dim myPas As String, myPath As String, i As Integer, myDoc As Document

With Application.FileDialog(msoFileDialogFolderPicker)

.Title = "選擇目標資料夾"

If .Show = -1 Then

myPath = .SelectedItems(1)

Else

Exit Sub

End If

End With

myPas = InputBox("請輸入開啟密碼：")

With Application.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 = "你好"

.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文件介面。