1、批量修改替換多個Word文檔中同一內(nèi)容的方法 如何一次性批量替換多個word文檔中的同一內(nèi)容。其實，實現(xiàn)多個Word文檔的字符進行批量替換的方法有多種。第一種方法，可以利用第三方軟件：全能字符串批量替換機。在網(wǎng)上可以下載到這款軟件，利用該軟件可以實現(xiàn)多個Word文檔字符進行批量替換。第二種方法，使用VBA實現(xiàn)，下面是具體操作步驟。第一，首先將需要批量替換的多個Word文檔放在同一文件夾下面。第二，新建一空白Word文檔，右擊空白工具欄，單擊“控件工具箱”，就可以看到屏幕上調(diào)出的控件工具箱。第三，在控件工具箱上單擊“命令按鈕”，文檔中就放置了一個按鈕了。第四，雙擊該按鈕，進入VB代碼編寫模式，將

2、以下代碼復(fù)制進去。Private Sub CommandButton1_Click()Application.ScreenUpdating = FalseDim myPas As String, myPath As String, i As Integer, myDoc AsDocumentWith Application.FileDialog(msoFileDialogFolderPicker) .Title =選擇目標文件夾 If .Show =-1 Then myPath = .SelectedItems(1) Else Exit Sub End IfEnd WithmyPas = In

3、putBox(請輸入打開密碼：)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

4、 WithSelection.Find .Text = IT部落窩 .Replacement.Text = .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False EndWith Selection.Find.Execute Replace:=

5、wdReplaceAll myDoc.Save myDoc.Close Set myDoc = Nothing Next End IfEnd With Application.ScreenUpdating =TrueEnd Sub第五，保存上面代碼，退出VB編輯模式，返回Word文檔界面。第六，單擊選中該按鈕，再單擊控件工具箱的第一個按鈕“退出設(shè)計模式”。第七，進行測試：再次點擊按鈕，就會發(fā)現(xiàn)該文件夾下面的所有WORD文檔中的IT部落窩被替換為了。說明：在實際使用中，可以更改上面代碼中的引號里的字符內(nèi)容為實際需要批量替換的內(nèi)容即可。如下所示。.Text = IT部