共用方式為

Document.AcceptAllRevisionsShown 方法 (Word)

  • 發行項

接受指定文件中顯示在螢幕上的所有修訂。

語法

expression. AcceptAllRevisionsShown

需要 expression。 代表 Document 物件的變數。

註解

您可以使用 RejectAllRevisionsShown 方法來拒絕指定文件中顯示在螢幕的所有修訂。

範例

這則範例會在隱藏 "Jeff Smith" 所做的修訂之後，接受所有顯示的修訂。此範例會假設使用中文件由一位以上的人員檢閱，而且其中一位檢閱者的姓名為 "Jeff Smith"。

Sub AcceptAllChanges() 
 Dim rev As Reviewer 
 With ActiveWindow.View 
 'Display all comments and revisions 
 .ShowRevisionsAndComments = True 
 .ShowFormatChanges = True 
 .ShowInsertionsAndDeletions = True 
 
 For Each rev In .Reviewers 
 rev.Visible = True 
 Next 
 
 'Hide only the revisions/comments made by the 
 'reviewer named "Jeff Smith" 
 .Reviewers(Index:="Jeff Smith").Visible = False 
 End With 
 
 'Accept all revisions displayed in the active view 
 ActiveDocument.AcceptAllRevisionsShown 
 
End Sub

另請參閱

Document 物件

支援和意見反應

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