【分享成果，随喜正能量】没有什么可以事事如愿，也没有什么不能过去，而最大的耐心就是等待，最大的烦躁就是抱怨。
《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容第八章: Sections对象和Section对象的第1节：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实践经验，全部浓缩在下面的各个教程及应用工具中：
【分享成果，随喜正能量】古人云，勿以权大而可畏，权大久必自倾；勿以胆大而不畏，胆大久会自危。。
,
