【分享成果，随喜正能量】没有什么可以事事如愿，也没有什么不能过去，而最大的耐心就是等待，最大的烦躁就是抱怨。

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

第一节 Sections对象及属性

Sections 对象代表所选内容、范围或文档中的Section对象的集合。一般情况下，使用Section属性以返回Sections集合。如在活动文档中的最后一节的末尾插入某些内容；还可以使用 Add方法或 InsertBreak方法向文档中添加一个新的节；使用Sections (index)可以返回单个节对象，以更改活动文档中左、右页边距的设置。

这节中我们会学习到Sections对象的Count 属性、First 属性、Last 属性。

1 Sections.Count 属性

这个属性返回一个Long , 该值代表集合中的节数。 此为只读属性。

语法：expression.Count

其中expression 是必需的。 一个代表 "Sections" 集合的变量。

2 Sections.First 属性

这个属性返回一个Section对象, 该对象代表Sections集合中的第一个项目。

语法：expression.First

其中expression 是必需的。 一个代表 "Sections" 集合的变量。

3 Sections.Last 属性

这个属性返回在 Sections 集合作为Section对象返回的最后一个项目。

语法：expression.Last

其中expression 是必需的。 一个代表 "Sections" 集合的变量。

4 实例：显示节总数及首位节的内容

下面我们将就一个实例给大家展示一下上述内容的应用。这个实例中我们首先将文档的内容赋给某个变量，然后提示给用户文档的总的节数，之后我们提示给用户文档首尾节的内容。代码：

Sub mynz()

'将文档的所有节赋给变量mySec

Set mySec = ActiveDocument.Sections

'提示节的总数

MsgBox "此文档中有" & mySec.Count & "节"

'将文档的第一节赋给变量myRange，并显示内容

Set myRange = mySec.First.Range

MsgBox myRange.Text

'将文档的最后节赋给变量myRange，并显示内容

Set myRange = mySec.Last.Range

MsgBox myRange.Text

End Sub

代码截图：

代码的解读：（略）

代码的运行效果：

在代码运行前，我们看看文档的界面：

代码运行：

今日内容回向：

1 Word中Sections对象的Count 属性、First 属性、Last 属性的意义是什么？

2 如何利用VBA显示文档的节数，及每节的内容？

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

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

【分享成果，随喜正能量】古人云，勿以权大而可畏，权大久必自倾；勿以胆大而不畏，胆大久会自危。。