摘要：《VBA之Word应用》（版权10178982），是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。
《VBA之Word应用》（版权10178982），是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。
这套教程是专门针对WORD VBA 的教程，是VBA中的稀缺资源，我给这套教程分归为中级教程，希望大家在VBA入门后再学习这套教程，这样会更加深入的理解面向对象编程的意义。
本套教程共三册十六章，今日内容为：VBA之Word应用第三章第五节：文档Document对象的属性（二）【分享成果，随喜正能量】菩萨保佑，凡事不必忧愁，佛缘俱足的你，自有菩萨暗中助力，一切都会越来越好。。
大家好，我们继续Word VBA的讲解。这讲开始，我们进入非常重要一章的学习，文档集合Documents对象及文档Document对象。在前面的讲解中我们可以大概看出文档和文档集合在Word VBA中的作用，很多的对象都是文档对象属性的返回对象，我们通过这章的学习要掌握Word VBA的基本应用。
大家好，我们这讲继续文档对象的学习，这讲的内容仍是文档对象属性的学习。对于对象而言，认识他最好途径就是掌握它的本质及特征，这就是对象属性的范畴。
这个属性会返回一个字符串，表示文档的名称，包括路径。 此为只读属性。
语法：expression.FullName
其中：expression 代表一个 Document对象
这个属性返回到文档的磁盘路径或 Web 路径。是一个只读的字符串。
语法：expression.Path
其中：expression 代表一个 Document对象
示例代码：
Sub mynzD
Dim myStr As String
myStr = ActiveDocument.Path & Application.PathSeparator & ActiveDocument.Name
MsgBox myStr
End Sub
使用 PathSeparator 属性可以添加字符来分隔文件夹和驱动器号代码的运行结果：
这个属性返回一个Sentences集合, 该集合代表文档中的所有句子。此为只读属性。
语法：expression. Sentences
其中：expression 代表一个 Document对象
代码示例：
这里的代码我将展现给大家一个实例，这个实例也是之前的一些知识点的总结，我们首先要复制当前文档的第一句，然后删除当前文档的最后一句。最后，我们将复制的第一句粘贴到文档的最后。
我们先看看我给出的代码：
Sub mynzE
ActiveDocument.Sentences(1).Copy
ActiveDocument.Sentences.Last.Delete
If ActiveDocument.Bookmarks.Exists("TTTT") = True Then
ActiveDocument.Bookmarks("TTTT").Select
Selection.Paste
End If
End Sub
代码截图：
代码讲解：
1） ActiveDocument.Sentences(1).Copy 这句代码是复制活动文档中的第一句。
2) ActiveDocument.Sentences.Last.Delete 这句代码是删除当前文档的最后一句。
3) If ActiveDocument.Bookmarks.Exists("TTTT") = True Then 这句代码是测试一下文档中是否有书签“TTTT”。
4) ActiveDocument.Bookmarks("TTTT").Select 这句代码是将光标置于书签“TTTT”处。
5) Selection.Paste 将复制的内容粘贴到当前光标处。
代码的测试效果：
我们先在当前文档的最后添加一个书签“TTTT”,如图：
代码运行后：
从上述的代码我们看到当前文档的最后一句已经被删除，同时第一句被粘贴到了文档的最后了。
这个属性返回一个Sections集合, 该集合代表指定文档中的节。 此为只读属性。
语法：expression. Sections
其中：expression 代表一个 Document对象
这个属性返回一个Shapes集合，该集合代表指定文档中的所有Shape对象。此为只读属性。
语法：expression.Shapes
其中：expression 代表一个 Document对象
今日内容回向：
1 文档对象的FullName、Path、Sentences、Sections、Shapes属性的意义是什么？
2 如何获得文档的路径及文档的名称？
本讲内容参考程序文件：Doc 003文档.docm
分享成果，随喜正能量
我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：
来源：VBA语言专业教育
