1.用命令提示符把資料夾所有的檔名列到文字檔案裡，並把文字檔案複製一份，

2.開啟列出來的文字檔案，查詢替換要改的字。

3.再用命令提示符把文字中的名字改回去。

我平時都這樣弄的，不用裝軟體，一分鐘內搞定。

如何一次性批量替換多個word文件中的同一內容。其實，實現多個Word文件的字元進行批量替換的方法有多種。

第一種方法，可以利用第三方軟體：全能字串批量替換機。在網上可以下載到這款軟體，利用該軟體可以實現多個Word文件字元進行批量替換。第二種方法，使用VBA實現，下面是具體操作步驟。

第一，首先將需要批量替換的多個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

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

myDoc.Close

Set myDoc = Nothing

Next

End If

End With

Application.ScreenUpdating = True

End Sub

第五，儲存上面程式碼，退出VB編輯模式，返回Word文件介面。

說明：在實際使用中，可以更改上面程式碼中的""引號裡的字元內容為實際需要批量替換的內容即可。如下所示。

.Text = "張三"

.Replacement.Text = 李四