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 物件的集合。
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。