通过VBA如何修改WORD页眉？？

其实通过宏录制你就完全可以明白，有些问题是可以自己轻易解决的，宏录制是学习vba很重要的一个步骤，自己要多尝试 ：

如下

If ActiveWindow.View.SplitSpecial <>wdPaneNone Then

ActiveWindow.Panes(2).Close

End If

If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _

ActivePane.View.Type = wdOutlineView Then

ActiveWindow.ActivePane.View.Type = wdPrintView

End If

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

ActiveDocument.AttachedTemplate.BuildingBlockEntries(" 空白").Insert Where:= _

Selection.Range, RichText:=True

Selection.TypeText Text:="暗暗暗暗"

打开带有页眉页脚的word文档，双击页眉，

在页眉处右键单击，单击“边框和底纹”，

将边框设置为”无“，单击面板下面的“应用于”长方形条框，将改为”图片“改为”段落“，单击”确定“，如图：

回到文档，发现页眉上的横条已经不复存在，双击页眉，按”Ctrl+A“全选页眉，单击键盘上的Delete,页眉消失，如图：

用同样的方法设置页脚。

Sub setPageFont()Application.PrintCommunication = FalseWith ActiveSheet.PageSetup.LeftHeader = ""'页眉左设置为：空.CenterHeader = "&F"'页眉中设置为：文件名.RightHeader = "" '页眉右设置为：空.LeftFooter = "&B 机密 &B" '页脚左设置为：加粗的 机密两个字.CenterFooter = "&D"'页脚中设置为：当前日期.RightFooter = " 第 &P 页" '页脚右设置为：页码End WithApplication.PrintCommunication = TrueEnd Sub

---