資源描述：
《批量修改替換多個(gè).中同一內(nèi)容的方法》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、.批量修改替換多個(gè)Word文檔中同一內(nèi)容的方法如何一次性批量替換多個(gè)word文檔中的同一內(nèi)容。其實(shí)，實(shí)現(xiàn)多個(gè)Word文檔的字符進(jìn)行批量替換的方法有多種?！ 〉谝环N方法，可以利用第三方軟件：全能字符串批量替換機(jī)。在網(wǎng)上可以下載到這款軟件，利用該軟件可以實(shí)現(xiàn)多個(gè)Word文檔字符進(jìn)行批量替換。 第二種方法，使用VBA實(shí)現(xiàn)，下面是具體操作步驟?！ 〉谝唬紫葘⑿枰刻鎿Q的多個(gè)Word文檔放在同一文件夾下面。 第二，新建一空白Word文檔，右擊空白工具欄，單擊“控件工具箱”，就可以看到屏幕上調(diào)出的控件工具箱?！ 〉谌?，在控件工具箱上單擊“命令按鈕”，
2、文檔中就放置了一個(gè)按鈕了?！ 〉谒?，雙擊該按鈕，進(jìn)入VB代碼編寫(xiě)模式，將以下代碼復(fù)制進(jìn)去。..PrivateSubCommandButton1_Click()Application.ScreenUpdating=FalseDimmyPasAsString,myPathAsString,iAsInteger,myDocAsDocumentWithApplication.FileDialog(msoFileDialogFolderPicker).Title="選擇目標(biāo)文件夾"If.Show=-1ThenmyPath=.SelectedItems(1)
3、Else..ExitSubEndIfEndWithmyPas=InputBox("請(qǐng)輸入打開(kāi)密碼：")WithApplication.FileSearch.LookIn=myPath.FileType=msoFileTypeWordDocumentsIf.Execute>0Then..Fori=1To.FoundFiles.CountSetmyDoc=Documents.Open(FileName:=.FoundFiles(i),Passworddocument:=myPas)Selection.Find.ClearFormattingSe
4、lection.Find.Replacement.ClearFormattingWithSelection.Find.Text="IT部落窩".Replacement.Text="www.ittribalwo.com"...Forward=True.Wrap=wdFindAsk.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False...MatchSoundsLike=False.MatchAllWordForms=FalseEnd
5、WithSelection.Find.ExecuteReplace:=wdReplaceAllmyDoc.SavemyDoc.CloseSetmyDoc=Nothing..NextEndIfEndWithApplication.ScreenUpdating=TrueEndSub 第五，保存上面代碼，退出VB編輯模式，返回Word文檔界面?！ 〉诹瑔螕暨x中該按鈕，再單擊控件工具箱的第一個(gè)按鈕“退出設(shè)計(jì)模式”?！ 〉谄撸M(jìn)行測(cè)試：再次點(diǎn)擊按鈕，就會(huì)發(fā)現(xiàn)該文件夾下面的所有WORD文檔中的"IT部落窩"被替換為"www.ittribalwo.com"
6、了。.. 說(shuō)明：在實(shí)際使用中，可以更改上面代碼中的""引號(hào)里的字符內(nèi)容為實(shí)際需要批量替換的內(nèi)容即可。如下所示?！ ?Text="IT部落窩".Replacement.Text=www.ittribalwo.com 關(guān)于控件工具箱的使用請(qǐng)參考文章：《Word控件工具箱的使用和實(shí)例(多選題制作)》.
