Word VBAで「変更履歴」を操作する方法【初心者向け解決ガイド】

2025.06.21

Word文書の「変更履歴」機能を活用すると、複数人での文書編集やレビューがスムーズになります。特に、VBA（Visual Basic for Applications）を使うと、手作業では難しい処理も自動化でき、効率的です。今回は、初心者の方にもわかりやすく、VBAを使った「変更履歴」の操作方法をご紹介します。

変更履歴とは？
VBAで変更履歴を操作する基本の流れ
実際のコード例
変更履歴の種類とその意味
よくある質問や疑問
1. Q1: VBAで変更履歴をすべて承認するにはどうすればよいですか？
2. Q2: 特定の範囲の変更履歴のみを承認するにはどうすればよいですか？
今すぐ解決したい！どうしたらいい？
まとめ

変更履歴とは？

Wordのイメージ

Wordの「変更履歴」は、文書に加えた変更点を記録する機能です。誰が、どの部分を、どのように変更したのかが一目でわかります。これにより、複数人での編集作業やレビューが容易になります。

VBAで変更履歴を操作する基本の流れ

VBAを使って変更履歴を操作するには、以下の手順を踏みます。

変更履歴の有効化
文書で変更履歴を有効にするには、
ActiveDocument.TrackRevisions = True

を実行します。
変更履歴の確認
文書内の変更履歴の数を確認するには、
ActiveDocument.Revisions.Count

を使用します。
変更履歴の承認または却下
各変更履歴を順番に処理するには、
For Each myRev In ActiveDocument.Revisions

のようにループを使います。変更履歴の種類を確認するには、

myRev.Type

を使用します。

実際のコード例

以下は、文書内のすべての変更履歴を確認し、挿入されたテキストのみを承認するVBAコードの例です。

vba

Sub 承認する変更履歴()

    Dim myRev As Revision

    For Each myRev In ActiveDocument.Revisions

        If myRev.Type = wdRevisionInsert Then

            myRev.Accept

        End If

    Next myRev

End Sub

このコードでは、文書内のすべての変更履歴を確認し、挿入されたテキスト（

wdRevisionInsert

）のみを承認します。

変更履歴の種類とその意味

Wordでは、変更履歴の種類がいくつか定義されています。主なものを以下に示します。

ここがポイント！

wdRevisionInsert: 挿入されたテキスト
wdRevisionDelete: 削除されたテキスト
wdRevisionReplace: 置換されたテキスト
wdRevisionMoveFrom: 移動元のテキスト
wdRevisionMoveTo: 移動先のテキスト

これらの種類を利用して、特定の変更履歴のみを対象に処理を行うことができます。

よくある質問や疑問

Q1: VBAで変更履歴をすべて承認するにはどうすればよいですか？

すべての変更履歴を承認するには、以下のコードを使用します。

vba

Sub すべての変更履歴を承認()

    ActiveDocument.Revisions.AcceptAll

End Sub

このコードを実行すると、文書内のすべての変更履歴が承認されます。

Q2: 特定の範囲の変更履歴のみを承認するにはどうすればよいですか？

特定の範囲の変更履歴のみを承認するには、以下のコードを使用します。

vba

Sub 範囲の変更履歴を承認()

    Dim myRange As Range

    Set myRange = ActiveDocument.Range(Start:=100, End:=200)

    Dim myRev As Revision

    For Each myRev In myRange.Revisions

        myRev.Accept

    Next myRev

End Sub

このコードでは、文書の100文字目から200文字目までの範囲の変更履歴のみを承認します。