怎样同时批量修改多个word文档

2022-03-10 教育 528阅读
一、前期准备

  下面是具体操作步骤。

  A,首先将需要批量替换的多个Word文档放在同一文件夹下面。

  B,新建一空白Word文档,右击空白工具栏,单击“控件工具箱”,就可以看到屏幕上调出的控件工具箱。

  C,在控件工具箱上单击“命令按钮”,文档中就放置了一个按钮了。

  D,双击该按钮,进入VB代码编写模式,将以下代码复制进去。

  二、命令按钮的代码

  PrivateSubCommandButton1_Click()
  Application.ScreenUpdating=False
  DimmyPasAsString,myPathAsString,iAsInteger,myDocAsDocument
  WithApplication.FileDialog(msoFileDialogFolderPicker)
  .Title="选择目标文件夹"
  If.Show=-1Then
  myPath=.SelectedItems(1)
  Else
  ExitSub
  EndIf
  EndWith
  myPas=InputBox("请输入打开密码,如果没有就不填:")
  WithApplication.FileSearch
  .LookIn=myPath
  .FileType=msoFileTypeWordDocuments
  If.Execute>0Then
  Fori=1To.FoundFiles.Count
  SetmyDoc=Documents.Open(FileName:=.FoundFiles(i),Passworddocument:=myPas)
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  WithSelection.Find
  .Text="原文字"
  .Replacement.Text="新文字"
  .Forward=True
  .Wrap=wdFindAsk
  .Format=False
  .MatchCase=False
  .MatchWholeWord=False
  .MatchByte=True
  .MatchWildcards=False
  .MatchSoundsLike=False
  .MatchAllWordForms=False
  EndWith
  Selection.Find.ExecuteReplace:=wdReplaceAll
  myDoc.Save
  myDoc.Close

  SetmyDoc=Nothing
  Next
  EndIf
  EndWith
  Application.ScreenUpdating=True
  EndSub

  保存上面代码,退出VB编辑模式,返回Word文档界面。

  单击选中该按钮,再单击控件工具箱的第一个按钮“退出设计模式”。

  最后,就可以进行测试:再次点击按钮,就会发现该文件夹下面的所有WORD文档中的"原文字"被替换为"新文字"了。
声明:你问我答网所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系fangmu6661024@163.com