Question

几十个文档如何统一修改

Answer 1

几十个文档统一修改的方法如下：
一、前期准备下面是具体操作步骤。
1、首先将需要批量替换的多个Word文档放在同一文件夹下面。
2、新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。
3、在控件工具箱上单击“命令按钮”，文档中就放置了一个按钮了。
4、双击该按钮，进入VB代码编写模式，将以下代码复制进去。
二、命令按钮的代码PrivateSubCommandButton1_Click()Application.ScreenUpdating=FalseDimmyPasAsString,myPathAsString,iAsInteger,myDocAsDocumentWithApplication.FileDialog(msoFileDialogFolderPicker).Title="选择目标文件夹"If.Show=-1ThenmyPath=.SelectedItems(1)ElseExitSubEndIfEndWithmyPas=InputBox("请输入打开密码，如果没有就不填：")WithApplication.FileSearch.LookIn=myPath.FileType=msoFileTypeWordDocumentsIf.Execute>0ThenFori=1To.FoundFiles.CountSetmyDoc=Documents.Open(FileName:=.FoundFiles(i),Passworddocument:=myPas)Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text="原文字".Replacement.Text="新文字".Forward=True.Wrap=wdFindAsk.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllmyDoc.SavemyDoc.CloseSetmyDoc=NothingNextEndIfEndWithApplication.ScreenUpdating=TrueEndSub保存上面代码，退出VB编辑模式，返回Word文档界面。单击选中该按钮，再单击控件工具箱的第一个按钮“退出设计模式”。最后，就可以进行测试：再次点击按钮，就会发现该文件夹下面的所有WORD文档中的"原文字"被替换为"新文字"了。