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 支持和反馈,获取有关如何接收支持和提供反馈的指南。