Word VBA教程: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对象可计算其他部分的项目数。

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号