暂无图片
暂无图片
暂无图片
暂无图片
暂无图片
首页 / 利用VBA设置页眉和页脚

利用VBA设置页眉和页脚

VBA语言専攻 2022-07-17
187
【分享成果，随喜正能量】做人，管好嘴，守住心，怨念越多，将来的苦难也就越多。。

《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容第八章: Sections对象和Section对象的第3节：利用VBA设置页眉和页脚

第三节  Section对象及其属性

Section 对象，代表所选内容、范围或文档中的一节。 Section对象是Sections集合的成员。Sections 集合包含所选内容、范围或文档中的所有各节。
在上一节中我们讲解的是Sections对象的PageSetup 属性、Add 方法、Item 方法。这节我们讲解的是Section对象的Footers属性、Headers属性、Range属性。

1  Section.Footers属性

这个属性返回一个HeadersFooters集合, 该集合代表指定节中的页脚。此为只读属性。
语法：expression.Footers
其中expression 是必需的。一个代表 "Section" 对象的变量。

2  Section.Headers属性

这个属性返回一个HeadersFooters集合, 该集合代表指定节的标题。此为只读属性。
语法：expression.Headers
其中expression 是必需的。一个代表 "Section" 对象的变量。

3  Section.Range属性

这个属性返回一个Range对象, 该对象代表指定对象中包含的文档部分。
语法：expression.Range
其中expression 是必需的。一个代表 "Section" 对象的变量。

4  实例：页眉页脚的添加

在本讲的实例部分，我将给大家一段代码，这个代码中将进行页眉页脚的设置，代码如下：
Sub mynzB()
    Set myRange = ActiveDocument.Paragraphs(1).Range
   '活动文档第1段之后插入一个分页符
    With myRange
        .Collapse Direction:=wdCollapseEnd
        .InsertBreak Type:=wdPageBreak
    End With
    '向活动文档第1节中的主页脚添加一个中间对齐的页码。
    With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
        .PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberRight
    End With
    '为活动文档中第1节的第2页页眉添加居中的页码, 第一页的页码除外
    With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
        .PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberRight, FirstPage:=False
    End With
    '为活动文档中第1节的首页页眉添加文本。
    ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True
    With ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage)
        .Range.InsertAfter ("精选阅读")
        .Range.Paragraphs.Alignment = wdAlignPageNumberCenter
    End With
    '在第3节的结尾插入文本。
    Set myRange = ActiveDocument.Sections(3).Range
    With myRange
        .MoveEnd Unit:=wdCharacter, Count:=-1
        .Collapse Direction:=wdCollapseEnd
        .InsertParagraphAfter
        .InsertAfter "结尾"
    End With
End Sub

代码截图：

代码解读：以上代码部分，我们只对WdHeaderFooterIndex 枚举值进行解读，如下：


WdHeaderFooterIndex 枚举值：
1）wdHeaderFooterEvenPages   3   返回偶数页上的所有页眉或页脚。
2）wdHeaderFooterFirstPage   2   返回文档或节中的第一个页眉或页脚。
3）wdHeaderFooterPrimary   1   返回文档或节中除第一页外所有页上的页眉或页脚。

代码的运行效果：运行前：

代码运行后：




今日内容回向：
  1  Word中Section对象的Footers属性、Headers属性、Range属性的意义是什么？
  2  如何利用VBA设置页眉和页脚？

本讲内容参考程序文件：Doc 008文档.docm

我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：


【分享成果，随喜正能量】遗憾是常有，孤独是常在，生活是品尝苦味，人生便是看尽无常变幻。。


vba页眉和页脚
文章转载自VBA语言専攻，如果涉嫌侵权，请发送邮件至：contact@modb.pro进行举报，并提供相关证据，一经查实，墨天轮将立刻删除相关内容。

评论