Home » ワードマクロ・Word VBAの使い方 » 変更履歴・コメント » 変更履歴のすべての変更を反映するWordマクロ

変更履歴のすべての変更を反映するWordマクロ

対象:Word2007, Word2010, Word2013

変更履歴のすべての変更を判定するWordマクロ

「word ドキュメント内のすべての変更を反映 マクロ」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

変更履歴のすべての変更を反映するマクロ・VBA(Visual Basic for Applications)のコードを探している方による検索です。

[スポンサードリンク]

アクティブな文書のすべての変更を反映するサンプルマクロ

以下のような一行のコードで、アクティブな文書のすべての変更を反映することができます。
Sub アクティブ文書の変更をすべて反映する()
 ActiveDocument.Revisions.AcceptAll
End Sub

ActiveDocumentプロパティでアクティブなDocumentオブジェクトを取得して、

変更履歴のすべての変更を判定するWordマクロ

DocumentオブジェクトのRevisionsプロパティで変更履歴を表すRevisionsコレクションオブジェクトを取得して、

変更履歴のすべての変更を判定するWordマクロ

RevisionsコレクションオブジェクトのAcceptAllメソッドですべての変更を反映しています。

変更履歴のすべての変更を判定するWordマクロ

開いている文書のすべての変更を反映するサンプルマクロ

以下のようなマクロにすれば、開いているすべての文書の、すべての変更を反映することができます。

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マクロ

「変更履歴・コメント」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.