閱讀英文

共用方式為


Word) (Revisions 物件

代表某個範圍或文件中具有修訂標記標示的變更的 Revision 物件集合。

註解

使用 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

無法使用 Revisions 集合的 Add 方法。 在啟用追蹤修訂時新增 revision 物件。 TrackRevisions 屬性設定為 True 追蹤修訂對文件的文字。 下列程式碼範例會讓使用中文件內追蹤修訂,然後插入 [""選取項目之前。

ActiveDocument.TrackRevisions = True 
Selection.InsertBefore "The "

使用 修訂 (Index),其中 Index 是索引編號,可以傳回單一 Revision 物件。 索引編號代表範圍或文件中之位置的修訂。 下列程式碼範例會顯示第一個區段的第一個修訂的作者名稱。

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

在文件中此集合的 Count 屬性會傳回主要本文中的項目數。 要計算其他本文中的項目會使用 Range 物件的集合。

方法

屬性

另請參閱

Word 物件模型參考資料

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應