Word中对象属性（Properties）的理解及示例（中）

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

第四节Word中对象属性（Properties）的理解及示例

大家好，我们继续讲解从VBA的角度来认识Word。在上一节我们主要理解了Word中对象和集合的概念，并以两个对象Document和Paragraph为例让大家对对象和集合有所了解。这节中我们继续向下学习，面向对象编程有了对象，下一个知识点就是要理解对象的属性（Properties）。

2对象属性的设置

若要设置属性的值，可以按照下面的示例，注意属性的写法，用对象的名称+半角圆点+新的属性值的写法。

示例1：下面的例子对名称为"示例01.doc"的文档中启用了变更跟踪。

Sub mynzG() '启用了变更跟踪属性

Dim myDoc As Document

Set myDoc = Documents.Open(ActiveDocument.Path & "\示例01.docx")

Documents("示例01").Activate

MsgBox Documents("示例01").TrackRevisions

If Documents("示例01").TrackRevisions = False Then Documents("示例01").TrackRevisions = True

MsgBox Documents("示例01").TrackRevisions

End Sub

代码的截图：

代码讲解：

在此示例中，首先要打开一个名称"示例01"的文档。然后提供给用户这个文档的TrackRevisions属性值；如果这个属性值为false,则更改为true。

代码的操作过程截图：

将这个属性设置为true后，我们就可以查看到文档修改的一些记录了，如下截图：

示例2：下面的代码将反馈当前活动文档的名称：

Sub mynzH() '反馈当前活动文档的名称

Dim myDocName As String

myDocName = ActiveDocument.Name

MsgBox myDocName

End Sub

代码截图：

代码讲解：

在此示例中， ActiveDocument 指 Word活动窗口中的文档。该文档分配给变量的名称指 Word 的活动窗口中的文档。该文档的名称已分配给变量myDocName。

代码的执行效果：

[待续]

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

【分享成果，随喜正能量】人生百味，情最浓，人生繁华，淡最真，人生一路，一步有一步的风景，一程有一程的感悟，不论时光如何流转，有些东西不会改变，那就是对美好的追求，对真情的渴望，给自己一份淡然，不困于情，不憾于心，无悔于生命，充实于生活，平和于心态，守一份心净，淡淡就好。。

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