Document.DeleteAllCommentsShown メソッド (Word)
画面に表示されている、指定した文書内の変更履歴をすべて削除します。
重要
DeleteAllCommentsShown
は、表示されるコメントのサブセットを削除します。 これには、アクティブなコメント (表示) と解決されたコメント (コメント ヒントで示されます) が含まれます。
構文
式。 DeleteAllCommentsShown
expression 必須です。 Document オブジェクトを表す変数を指定します。
例
次の使用例は、"関口 美和子" のコメントをすべて非表示にし、それ以外のコメントをすべて削除します。
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
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。