Word) (Revisions 对象

修订对象表示与指定区域或文档中的修订标记标识的修改的集合。

备注

使用 修订版本 属性返回修订集合。下面的代码示例显示正文中的修订数。

MsgBox ActiveDocument.Revisions.Count

以下代码示例接受所选内容中的所有修订。

For Each myRev In Selection.Range.Revisions 
 myRev.Accept 
Next myRev

下面的代码示例接受所选内容的第一个段落中的所有修订。

Set myRange = Selection.Paragraphs(1).Range 
myRange.Revisions.AcceptAll

Add 方法不适用于修改集合。在启用修订功能时，将添加修订对象。 TrackRevisions 属性设置为 True 来跟踪对文档文本所做的修订。下面的代码示例启用修订跟踪活动文档中，然后插入"The"在选定内容之前。

ActiveDocument.TrackRevisions = True 
Selection.InsertBefore "The "

使用修订（索引），其中索引是索引号，返回单个修订对象。索引号代表修订的范围或文档中的位置。下面的代码示例显示在第一节中的第一个修订的作者姓名。

MsgBox ActiveDocument.Sections(1).Range.Revisions(1).Author

一个文档中，以上集合的 Count 属性返回正文部分的项目数。要统计其他部分中的个数，请使用带有 Range 对象的集合。

有关于 Office VBA 或本文档的疑问或反馈？请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。