Word VBAでブックマークを使って文字列を置換する方法とは？【初心者向け解決ガイド】

2025.05.262026.01.27

Wordの文書作成で、特定の場所に「しおり」を挿し、後からその位置に簡単にアクセスしたり、内容を変更したりできる便利な機能が「ブックマーク」です。今回は、このブックマークをVBA（Visual Basic for Applications）を使って操作し、指定した文字列を置換する方法を、初心者の方にもわかりやすく解説します。

ブックマークとは？
VBAでブックマークを操作する準備
ブックマークを使って文字列を置換するVBAコード
コードのポイント
実際の使用例
よくある質問や疑問
まとめ

ブックマークとは？

Wordのイメージ

まず、ブックマークとは、Word文書内の特定の位置や範囲に名前を付けて目印をつける機能です。これにより、文書が長くても、後からその位置にすぐにジャンプしたり、内容を変更したりすることができます。

例えば、長文のレポートの中で「はじめに」と書かれた部分にブックマークを設定しておけば、後からその部分にすぐに移動して内容を編集することができます。

VBAでブックマークを操作する準備

VBAを使ってWordを操作するためには、まずVBAエディターを開く必要があります。以下の手順で開いてみましょう。

Wordを開き、Altキーを押しながらF11キーを押します。
VBAエディターが開きます。
左側の「VBAProject（あなたの文書名）」を右クリックし、「挿入」→「モジュール」を選択します。
新しく挿入されたモジュールに、後で紹介するコードを貼り付けます。

これで、VBAを使った操作の準備が整いました。

ブックマークを使って文字列を置換するVBAコード

次に、VBAを使ってブックマーク内の文字列を置換するコードを紹介します。以下のコードを先ほど挿入したモジュールに貼り付けてください。

Sub ReplaceBookmarkText()

    Dim bm As Bookmark

    Dim bmRange As Range

    Dim oldText As String

    Dim newText As String
    ' 置換対象のブックマーク名を設定

    Set bm = ActiveDocument.Bookmarks("YourBookmarkName")
    ' ブックマークが存在する場合

    If Not bm Is Nothing Then

        ' ブックマークの範囲を取得

        Set bmRange = bm.Range
        ' 置換前と置換後の文字列を設定

        oldText = "置換前の文字列"

        newText = "置換後の文字列"

' 範囲内で文字列を置換 bmRange.Find.Execute FindText:=oldText, ReplaceWith:=newText, Replace:=wdReplaceAll Else MsgBox "指定したブックマークが見つかりません。" End If End Sub

このコードでは、指定したブックマーク内の「置換前の文字列」を「置換後の文字列」に一括で置換します。ブックマーク名や置換する文字列を適宜変更して使用してください。

コードのポイント

ブックマークの取得ActiveDocument.Bookmarks(“YourBookmarkName”)で、指定した名前のブックマークを取得します。
範囲の取得bm.Rangeで、ブックマークが設定された範囲を取得します。
文字列の置換bmRange.Find.Executeを使って、指定した範囲内で文字列を検索し、置換します。

実際の使用例

例えば、契約書の中で「契約者名」をブックマークとして設定しておき、その部分に「田中太郎」から「佐藤花子」に変更したい場合、以下のようにコードを変更します。

Sub ReplaceContractorName()

    Dim bm As Bookmark

    Dim bmRange As Range

    Dim oldName As String

    Dim newName As String
    ' 置換対象のブックマーク名を設定

    Set bm = ActiveDocument.Bookmarks("ContractorName")
    ' ブックマークが存在する場合

    If Not bm Is Nothing Then

        ' ブックマークの範囲を取得

        Set bmRange = bm.Range
        ' 置換前と置換後の名前を設定

        oldName = "田中太郎"

        newName = "佐藤花子"

' 範囲内で名前を置換 bmRange.Find.Execute FindText:=oldName, ReplaceWith:=newName, Replace:=wdReplaceAll Else MsgBox "指定したブックマークが見つかりません。" End If End Sub

このように、ブックマークを活用することで、文書内の特定の部分を効率的に編集することができます。

よくある質問や疑問

Q1: ブックマークが見つからない場合、どうすればよいですか？

ブックマーク名が正確かどうかを確認してください。大文字と小文字は区別されますので、正確な名前を入力する必要があります。また、ブックマークが文書内に存在するかも確認してください。

Q2: 複数のブックマークを一度に置換する方法はありますか？

はい、複数のブックマークをループ処理で順番に処理することができます。Bookmarksコレクションを使って、文書内のすべてのブックマークを取得し、各ブックマーク内の文字列を置換することが可能です。

Q3: 置換後にブックマークが消えてしまうことはありますか？

はい、Find.Executeメソッドで文字列を置換すると、ブックマークが削除されることがあります。ブックマークを維持したい場合は、Find.Executeメソッドを使わずに、RangeオブジェクトのTextプロパティを直接変更する方法を検討してください。

まとめ

Word VBAを使ってブックマーク内の文字列を置換する方法について解説しました。ブックマークを活用することで、文書内の特定の部分を効率的に編集することができます。VBAを使った操作は最初は難しく感じるかもしれませんが、少しずつ慣れていけば、作業の効率が大幅に向上します。

他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。