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