利用VBA设置页眉和页脚(在excel中,设置页眉和页脚的内容可以通过) |
您所在的位置:网站首页 › 修改页眉和页脚的内容可以通过什么 › 利用VBA设置页眉和页脚(在excel中,设置页眉和页脚的内容可以通过) |
【分享成果,随喜正能量】做人,管好嘴,守住心,怨念越多,将来的苦难也就越多。。 《VBA之Word应用》,是我推出第八套教程,教程是专门讲解VBA在Word中的应用,围绕“面向对象编程”讲解,首先让大家认识Word中VBA的对象,以及对象的属性、方法,然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章,今日内容第八章: Sections对象和Section对象的第3节:利用VBA设置页眉和页脚 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实践经验,全部浓缩在下面的各个教程及应用工具中: 【分享成果,随喜正能量】遗憾是常有,孤独是常在,生活是品尝苦味,人生便是看尽无常变幻。。 |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |