Document.AcceptAllRevisionsShown メソッド (Word)

画面に表示される、指定された文書の変更履歴をすべて受け付けます。

構文

式。 AcceptAllRevisionsShown

expression 必須です。 Document オブジェクトを表す変数を指定します。

注釈

RejectAllRevisionsShown メソッドを使用すると、画面に表示されている指定されたドキュメント内のすべてのリビジョンを拒否します。

例

次の使用例は、"高橋 健" が行った変更の履歴を非表示にした後、すべての変更を受け付けます。 この使用例では、現在の文書は複数の校閲者によって校閲されており、そのうちの 1 人が "高橋 健" であることを前提としています。

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

関連項目

ドキュメント オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。