Revisions 集合对象

多种对象 Revisions (Revision) Range

一个由 Revision 对象组成的集合，这些对象代表文档或范围中标有修订标记的变化。

使用 Revisions 集合

可用 Revisions 属性返回 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 方法在 Revisions 集合中无效。修订开始时添加 Revision 对象。可将 TrackRevisions 属性设置为 True 以跟踪文档中所作的修订。下例在活动文档中打开修订跟踪功能并在所选内容之前插入“The”。

ActiveDocument.TrackRevisions = True
Selection.InsertBefore "The "

用 Revisions(index) 返回一个 Revision 对象，其中 index 为索引号。索引号代表修订内容在范围或文档中的位置。下例显示了第一个所选内容中第一个修订内容的作者姓名。

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

说明

文档中该集合的 Count 属性仅返回正文部分的项目数。使用集合的 Range 对象可计算其他部分的项目数。