通过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,页眉消失，如图：

用同样的方法设置页脚。

先顶楼上……

首先在VB中引用Office的对象，然后Set一个对象进行 *** 作，关于查询 *** 作word文档，建议：

(1)用“对象浏览器”找Office对象的成员和方法

(2)在Word中录制一个宏，修改一下页眉信息，用一下查找替换，再用VBA编辑宏，看VBA怎么写的

PS:文档列表引用FSO对象来查询(File System Object)，如何用这东东参考(1)

自己找要用的东西，印象会比较深刻~~

---