Word) (Document.RejectAllRevisionsShown 方法

拒絕文件中顯示在螢幕上的所有修訂。

語法

expression. RejectAllRevisionsShown

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

範例

這則範例會隱藏 Jeff Smith 所做的修訂，並拒絕顯示的所有剩餘修訂。

Sub RejectAllChanges() 
 Dim rev As Reviewer 
 With ActiveWindow.View 
 'Show all revisions in the document 
 .ShowRevisionsAndComments = True 
 .ShowFormatChanges = True 
 .ShowInsertionsAndDeletions = True 
 
 For Each rev In .Reviewers 
 rev.Visible = True 
 Next 
 
 'Hide revisions made by "Jeff Smith" 
 .Reviewers(Index:="Jeff Smith").Visible = False 
 End With 
 
 'Reject all revisions displayed in the active view 
 ActiveDocument.RejectAllRevisionsShown 
End Sub

另請參閱

Document 物件

支援和意見反應

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