[求助]怎样用VBA读取word页眉页脚？

美丽の破船

我想用VC读取word页眉页脚的内容
我知道用section来返回HeadersFooters对象集合来读取页眉页脚的内容～
可是，当一节跨多个页的时候这么读取这些页的页眉页脚？
望各位老大、能提供相关的代码。VBA的代码就可以～

守柔

作为非连续型节而言，有三种页眉（页脚）情况：

首页不同的页眉，基本的页眉和偶数页页眉。

请参考以下代码，分别返回三种对应的页眉文本（含段落标记）

Sub Example()

Dim myRange As Range

'首页页眉

    Set myRange = ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range

Debug.Print myRange.Text

'偶数页页眉

    Set myRange = ActiveDocument.Sections(1).Headers(wdHeaderFooterEvenPages).Range

Debug.Print myRange.Text

'基本页眉

    Set myRange = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range

    Debug.Print myRange.Text

End Sub

其中，如果节中只使用一种页眉（基本页眉时），请使用以下代码返回

Set myRange = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range

    Debug.Print myRange.Text

美丽の破船

谢谢守柔老大～
问题已经解决～
结贴！！
对了，如果在VC中怎么使用wdHeaderFooterPrimary等这些常量啊～
我都是用Item（Index)返回具体的对象～
可是WdHeaderFooterIndex常量好像不能用在这里哦～
虽然这些问题不该在这里问～但还是希望老大尽可能的帮帮我～

美丽の破船

多谢守柔老大～
按照你的提示，问题解决了～

yb010

学习学习中……

csnAlex

在WORD的Visual Basic编辑器的立即窗口里用 ? wdHeaderFooterPrimary 可以得到wdHeaderFooterPrimary代表的数字，在VC里用数字代替wdHeaderFooterPrimary。其它类似。

竹林间

请问怎么插入页眉图片，设置图片高度为1厘米，左对齐；请大家帮帮忙