Word (Document.DeleteAllCommentsShown 方法)

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

重要事項

DeleteAllCommentsShown 會刪除批註的可見子集。 這包括) 顯示的作用中批註 (，以及批註提示) 所指示 (解析的批註。

語法

expression. DeleteAllCommentsShown

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

範例

這則範例會隱藏 "Jeff Smith" 所做的所有註解，並刪除所有其他顯示的註解。

Sub HideDeleteComments() 
 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 
 
 'Delete all comments displayed in the active view 
 ActiveDocument.DeleteAllCommentsShown 
End Sub

另請參閱

Document 物件

支援和意見反應

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