対象:Word2007, Word2010, Word2013
「word ドキュメント内のすべての変更を反映 マクロ」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。
変更履歴のすべての変更を反映するマクロ・VBA(Visual Basic for Applications)のコードを探している方による検索です。
[スポンサードリンク]
アクティブな文書のすべての変更を反映するサンプルマクロ
以下のような一行のコードで、アクティブな文書のすべての変更を反映することができます。
Sub アクティブ文書の変更をすべて反映する()
ActiveDocument.Revisions.AcceptAll
End Sub
ActiveDocument.Revisions.AcceptAll
End Sub
ActiveDocumentプロパティでアクティブなDocumentオブジェクトを取得して、
DocumentオブジェクトのRevisionsプロパティで変更履歴を表すRevisionsコレクションオブジェクトを取得して、
RevisionsコレクションオブジェクトのAcceptAllメソッドですべての変更を反映しています。
開いている文書のすべての変更を反映するサンプルマクロ
以下のようなマクロにすれば、開いているすべての文書の、すべての変更を反映することができます。
Sub 開いている文書の変更をすべて反映する()
Dim doc as Document
For Each doc in Documents
doc.Revisions.AcceptAll
Next doc
End Sub
Dim doc as Document
For Each doc in Documents
doc.Revisions.AcceptAll
Next doc
End Sub
開いているすべてのDocumentオブジェクトに対してループを回して、
For Each doc in Documents
先のアクティブ文書の変更を反映するのと同様、
RevisionsコレクションオブジェクトのAcceptAllメソッドを実行しています。
doc.Revisions.AcceptAll
[スポンサードリンク]
Home » ワードマクロ・Word VBAの使い方 » 変更履歴・コメント » 変更履歴のすべての変更を反映するWordマクロ