Document.RejectAllRevisionsShown メソッド (Word)

画面に表示されている文書内の変更箇所をすべて拒否します。

構文

式。 RejectAllRevisionsShown

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

例

次の使用例は、井上 靖雄が加えた変更箇所を非表示にし、それ以外で表示されている変更箇所をすべて拒否します。

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

関連項目

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

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

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