word怎样设置文档信息（显示当前文档中选择的信息及添加页脚）

【分享成果，随喜正能量】很多时候即使累了，也不要轻易停下脚步。因为我们放弃的不只是一个人生事业的机会， 更是一份责任、希望和梦想！每天送给自己一个礼物，那就是学会尊重、感恩、自我鼓励。

《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容第七章 “Word中的Selection对象”,第2节：显示当前文档中选择的信息及添加页脚

大家好，我们继续Selection对象属性的讲解，在上一节我们学习了Selection对象的ChildShapeRange属性、ShapeRange属性、Fields属性。这节我们将学习到Selection对象的Font属性、HeaderFooter属性及Information属性。

该属性返回或设置一个Font对象，该对象代表指定对象的字符格式

语法：expression.Font

其中expression为一个代表Selection对象的变量。

• 若要设置Font属性，指定该表达式返回一个Font对象。

该属性返回指定的所选内容的HeaderFooter对象。 此为只读属性。

语法：expression.HeaderFooter

其中expression为一个代表Selection对象的变量。

• 如果选定内容并非位于页眉或页脚，则会出现错误。

该属性返回有关指定的选定内容的信息

语法：expression.Information(Type)

其中expression为一个代表Selection对象的变量。

参数：

1）Type 必需 WdInformation 信息类型。

WdInformation 枚举值：

1）wdActiveEndAdjustedPageNumber 1返回包含指定的所选内容或区域的活动结尾的页面数。如果设置起始页码或进行其他手动调整，则返回调整的页码（与wdActiveEndPageNumber不同）。

2）wdActiveEndPageNumber 3 返回包含指定的选定内容或范围，从文档的开头开始计数的活动端的页面数。 对页码编号的任何手动调整都将被忽略（与wdActiveEndAdjustedPageNumber不同）。

3）wdActiveEndSectionNumber 2 返回节号，在该节中包含了指定的所选内容或区域的活动结尾。

4）wdAtEndOfRowMarker 31 如果指定的所选内容或区域位于表格的行结尾标记处，则该参数返回 True

5）wdCapsLock 21 如果 Caps Lock 有效，则该参数返回 True 。

6）wdEndOfRangeColumnNumber 17 返回表格列号，在该表格列中包含指定的所选内容或区域的结尾。

7）wdEndOfRangeRowNumber 14 返回表格行号，在该表格行中包含指定的所选内容或区域的结尾。

8）wdFirstCharacterColumnNumber 9 返回指定的所选内容或区域中第一个字符的位置。 如果所选内容或区域是折叠的，则返回紧靠所选内容或区域右侧的字符编号（该编号与状态栏中"列"后面的字符列数相同）。

9）wdFirstCharacterLineNumber 10 返回指定的所选内容或区域中第一个字符的位置。 如果所选内容或区域是折叠的，则返回紧靠所选内容或区域右侧的字符编号（该编号与状态栏中"行"后面的字符行数相同）。

10）wdFrameIsSelected 11 如果所选内容或区域为整个图文框或文本框，则该参数返回 True 。

11）wdHeaderFooterType 33 返回一个值，该值指示包含了指定所选内容或区域的页眉或页脚的类型。

12）wdHorizontalPositionRelativeToPage 5 返回指定的所选内容或区域的水平位置。这是从所选内容或区域的左边缘到页面左边缘的距离，以磅为单位（1磅 = 20 缇，72磅 = 1 英寸）。 如果所选内容或区域不在屏幕区域中，则返回-1。

13）wdHorizontalPositionRelativeToTextBoundary 7 返回指定所选内容或区域相对于周围最近的正文边界左边缘的水平位置，以磅为单位（1 磅 = 20 缇，72 磅 = 1 英寸）。 如果所选内容或区域不在屏幕区域中，则返回-1。

14）wdInBibliography 42 如果指定的所选内容或区域位于书目中，则该参数返回 True 。

15）wdInCitation 43 如果指定的所选内容或区域位于引文中，则返回 True 。

16）wdInClipboard 38 有关该常量的信息，请参阅包含在 Microsoft Office Macintosh Edition 中的语言参考帮助。

17）wdInCommentPane 26 如果指定的所选内容或区域位于批注窗格，则该参数返回 True 。18）wdInContentControl 46 如果指定的所选内容或区域位于内容控件中，则该参数返回 True 。19）wdInCoverPage 41 如果指定的所选内容或区域位于某一封面，则该参数返回 True 。

20）wdInEndnote 36 如果指定的所选内容或区域位于页面视图的尾注区内，或者位于普通视图的尾注窗格中，则该参数返回 True 。

21）wdInFieldCode 44 如果指定的所选内容或区域位于域代码中，则该参数返回 True 。

22）wdInFieldResult 45 如果指定的所选内容或区域位于域结果中，则该参数返回 True 。

23）wdInFootnote 35 如果指定的所选内容或区域位于页面视图的脚注区内，或者位于普通视图的脚注窗格中，则该参数返回 True 。

24）wdInFootnoteEndnotePane 25 如果指定的所选内容或区域位于普通视图的脚注或尾注窗格中，或者位于页面视图的脚注或尾注区域中，则该参数返回 True 。 有关详细信息，请参阅 wdInFootnote 和 wdInEndnote 在前面的段落中所描述。

25）wdInHeaderFooter 28 如果所选内容或区域位于页眉或页脚窗格中，或者位于页面视图的页眉或页脚中，则返回True 。

26）wdInMasterDocument 34 如果所选内容或区域位于主控文档（即至少包含一个子文档的文档）中，则该参数返回 True 。

27）wdInWordMail 37 如果所选内容或区域位于页眉或页脚窗格中，或者位于页面视图的页眉或页脚中，则返回True 。

28）wdMaximumNumberOfColumns 18 返回所选内容或区域中任何行的最大表格列数。

29）wdMaximumNumberOfRows 15 返回指定的所选内容或区域中表格的最大行数。

30）wdNumberOfPagesInDocument 4 返回与所选内容或区域相关联的文档的页数

31）wdNumLock 22 如果 Num Lock 有效，则该参数返回 True

32）wdOverType 23 如果改写模式有效，则该参数返回 True 。 可使用 Overtype 属性改变改写模式的状态。

33）wdReferenceOfType 32 返回一个值，该值表明所选内容相对于脚注、尾注或批注引用的位置，如"注解"部分中的表所示。

34）wdRevisionMarking 24 如果更改跟踪有效，则该参数返回 True

35）wdSelectionMode 20 返回一个值，该值表明当前的选定模式，如下表所示。

36）wdStartOfRangeColumnNumber 16 返回表格列号，在该表格列中包含所选内容或区域的起点。wdStartOfRangeRowNumber 13 返回表格行号，在该表格行中包含所选内容或区域的起点。

37）wdVerticalPositionRelativeToPage 6 返回所选内容或区域的垂直位置，即所选内容的上边缘与页面的上边缘之间的距离，以磅为单位（1 磅 = 20 缇，72 磅 = 1 英寸）。 如果所选内容在文档窗口中不可见，则返回-1。

38）wdVerticalPositionRelativeToTextBoundary 8 返回所选内容或区域相对于周围最近的正文边界的上边缘的垂直位置，以磅为单位（1 磅 = 20 缇，72 磅 = 1 英寸）。 该参数可用于在图文框或表格中确定插入点位置。 如果所选内容不可见，则返回-1。

39）wdWithInTable 12 如果所选内容位于表格中，则该参数返回 True 。

40）wdZoomPercentage 19 按 百分比 属性返回当前设置的缩放百分比。

下面我们将就一个实例来讲解上述的各个属性，在这个实例中我们首先将当前文档的最后一段分页处理，然后添加页脚，最后选择当前文档的第一段，提示用户字体的名称及页面信息。

我们看代码：

Sub mynzB()

'将最后一段分页

ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.Select

ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).PageBreakBefore = True

'对当前文档具有当前焦点的窗口进行视图属性设置

With ActiveDocument.ActiveWindow.View

'设置视图的类型为页面视图。

.Type = wdPrintView

'设置在页面视图中显示的文档元素wdSeekCurrentPageFooter指当前页页脚。

.SeekView = wdSeekCurrentPageFooter

End With

'添加页脚

Selection.HeaderFooter.PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberCenter

'选择当前文档的第一个段落，提示字体名称

ActiveDocument.Paragraphs(1).Range.Select

MsgBox Selection.Font.Name

'提示当前选择的页面的页数

MsgBox "当前页面为第" & Selection.Information(wdActiveEndPageNumber) & "页，总页数为" _

& Selection.Information(wdNumberOfPagesInDocument)

End Sub

代码截图：

代码解读：（略）

代码的运行：

今日内容回向：

1 Word中Selection对象的Font属性、HeaderFooter属性及Information属性的意义是什么？

2 如何利用VBA显示所选择内容的信息及添加页脚？

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

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

【分享成果，随喜正能量】懂得顺势而动，随时随地做好适应变化的心里准备，这是一个人不被打倒的最好办法。。