VB 版 (精华区)

发信人: zxfsnow (江南的雪), 信区: VB
标  题: VBA如何添加页眉，页脚 
发信站: 哈工大紫丁香 (2000年06月18日12:13:24 星期天), 转信

发信人: HareBlue (蓝铃花), 信区: VisualBasic
标  题: Re: VBA如何添加页眉，页脚
发信站: BBS 水木清华站 (Tue Apr 25 09:18:10 2000)

【 在 chaf (梦梅) 的大作中提到: 】
: ActiveDocument.Content._______？
: 不知如何添加页眉页脚
: 请大虾帮忙
in word 2000,
由 HeaderFooter 对象所组成的集合，该集合中的对象代表了指定的文档某一节中的页眉
或页脚。

使用 HeaderFooters 集合

用 Headers 或 Footers 属性可返回 HeaderFooters 集合。下列示例显示活动文档第一
节基本页脚中的文字。

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
    If .Range.Text <> vbCr Then
        MsgBox .Range.Text
    Else
        MsgBox "Footer is empty"
    End If
End With
注意   不能在 HeaderFooters 集合中添加 HeaderFooter 对象。

用 Headers(index) 或 Footers(index) 可返回单个的 HeaderFooter 对象，其中的
index 是 WdHeaderFooterIndex 常量（wdHeaderFooterEvenPages、wdHeaderFooterFirs
tPage、或 wdHeaderFooterPrimary）之一。下列示例更改活动文档第一节的基本页眉和
基本页脚中的文字。

With ActiveDocument.Sections(1)
    .Headers(wdHeaderFooterPrimary).Range.Text = "Header text"
    .Footers(wdHeaderFooterPrimary).Range.Text = "Footer text"
End With
也可用 Selection 对象的 HeaderFooter 属性返回单个的 HeaderFooter 对象。
  
--

 以科计为本,以产业报国!
  超越自我,飞跃无限!
  

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.249]