利用VBA代码替换Word文档的页眉页脚

作者：绿色风分类：时间：2022-08-18 浏览：101

楼主 kevinchengcw	Q: 如何利用VBA完成Word文档替换页眉页脚文字的工作？ A: 可以利用下述代码实现这一目标，代码如下： Sub 替换页眉页脚() If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close With ActiveWindow.ActivePane.View .Type = wdPrintView .SeekView = wdSeekCurrentPageHeader Selection.WholeStory Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeText Text:="这是替换后的页眉" .SeekView = wdSeekMainDocument End With WordBasic.ViewFooterOnly Selection.WholeStory Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeText Text:="这是替换后的页脚" ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub
2楼 sam.tan	我有2个问题(详见附件),请楼主帮VBA解决,小弟万分感激! MCI016内容17-1.zip
3楼 chenlifeng	WordBasic.ViewFooterOnly在我电脑上出错，去掉后双不正确了，因为它把正文全部替换成了页脚！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表