VBA实现批量修改Word文档的页脚内容

《VBA实现批量修改Word文档的页脚内容》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VBA实现批量修改Word文档的页脚内容VBA实现批量修改Word文档的页脚内容有很多个doc文档，页脚的电话变了，如原电话是4007339339，现在变成4007168339了，要实现批量替换，可使用此程序。使用说明：1、复制下面程序代码到VBA里后，点“工具”－“宏”－“宏”－“change”－“运行”2、输入目录(不要输入根目录，要不速度会很慢)3、输入要查找的内容4、输入的替换成你要的内容－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－'下面是程序代码，

2、复制到Word的VBA里'此子程序放在Word对象里OptionExplicitSubchange()DimsAsStringDimwbAsObjectDimiAsLongDimloadAsStringDimfindAsStringDimchangeAsStringload=InputBox("输入要修改页脚的文件夹路径，自动扫描子文件夹")  '要变更的目录find=InputBox("输入要查找的页脚内容")  '查找的内容change=InputBox("请问要替换成什么内容？")'替换的内容S

3、etwb=Application.FileSearch   Withwb       .NewSearch       .LookIn=load       .SearchSubFolders=True       .FileName="*.doc"       .FileType=msoFileTypeExcelWorkbooks       If.Execute()>0Then           Fori=1To.FoundFiles.Count               OnErrorRes

4、umeNext           s=.FoundFiles(i)           CallMacro1(s,find,change)            Nexti       EndIf    EndWithEndSub'此子程序放在模块里OptionExplicitSubMacro1(sAsString,findAsString,changeAsString)         Documents.OpenFileName:=s,ConfirmConversions:=False,_   

5、    ReadOnly:=False,AddToRecentFiles:=False,PasswordDocument:="",_       PasswordTemplate:="",Revert:=False,WritePasswordDocument:="",_       WritePasswordTemplate:="",Format:=wdOpenFormatAuto,XMLTransform:=""   IfActiveWindow.View.SplitSpecial<>wdPaneN

6、oneThen       ActiveWindow.Panes(2).Close   EndIf   IfActiveWindow.ActivePane.View.Type=wdNormalViewOrActiveWindow._       ActivePane.View.Type=wdOutlineViewThen       ActiveWindow.ActivePane.View.Type=wdPrintView   EndIf   ActiveWindow.ActivePane.View.

7、SeekView=wdSeekCurrentPageHeader   IfSelection.HeaderFooter.IsHeader=TrueThen       ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageFooter   Else       ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageHeader   EndIf   Selection.find.ClearFo

8、rmatting   Selection.find.Replacement.ClearFormatting   WithSelection.find       .Text=find'查找的内容       .Replacement.Text=change'替换的内容       .Forward=True       .Wrap=wdFindContinue       .Format=False       .MatchCase=False