Word文書内のハイパーリンクのリンク先アドレスを一括置換する方法

Word文書内に複数のハイパーリンクがある場合、一括でリンク先アドレスを変更したいことがあります。例えば、「http://」から「https://」に変更するなどです。この記事では、VBA（Visual Basic for Applications）を使って、簡単にハイパーリンクのリンク先アドレスを一括置換する方法をご紹介します。

Step 1: VBAエディタを開く

まず、WordでVBAエディタを開きます。キーボードの「Alt」キーと「F11」キーを同時に押すことで、VBAエディタが開きます。

Step 2: 新しいVBAプロジェクトを作成

次に、「挿入」メニューから「標準モジュール」を選択して、新しいモジュールを挿入してください。

Step 3: VBAコードをコピー＆ペースト

以下のVBAコードをコピーして、新しく作成したモジュールに貼り付けてください。

Sub ReplaceHyperlinkAddresses()
    Dim link As Hyperlink
    Dim oldAddressPart As String
    Dim newAddressPart As String
　　' 検索文字列の入力を求める
oldAddressPart = InputBox("検索文字列を入力してください（例：http://）", "検索文字列")
If oldAddressPart = "" Then Exit Sub

' 置換文字列の入力を求める
newAddressPart = InputBox("置換文字列を入力してください（例：https://）", "置換文字列")

' ハイパーリンクのアドレスを置換
For Each link In ActiveDocument.Hyperlinks
    If InStr(1, link.Address, oldAddressPart) > 0 Then
        link.Address = Replace(link.Address, oldAddressPart, newAddressPart)
    End If
Next link

MsgBox "ハイパーリンクのリンク先アドレスの置換が完了しました。", vbInformation, "置換完了"
End Sub

Step 4: VBAコードを実行

Word文書上で「Alt」キーと「F8」キーを同時に押し、「マクロ」ダイアログボックスから先ほど作成したマクロ「ReplaceHyperlinkAddresses」を選択して、「実行」ボタンをクリックします。

実行すると、検索文字列の入力用のダイアログボックスが表示されます。ここで、例えば「http://」のような検索文字列を入力し、「OK」をクリックします。次に、置換文字列の入力用のダイアログボックスが表示されます。ここで、「https://」のような置換文字列を入力し、「OK」をクリックします。

入力が完了すると、指定された検索文字列と置換文字列に基づいて、文書内のハイパーリンクのリンク先アドレスが一括で置換されます。最後に、「置換完了」のメッセージボックスが表示されます。

注意事項

このVBAコードを使用する際には、事前にドキュメントをバックアップしておくことをお勧めします。また、VBAコードの実行は自己責任でお願いいたします。

まとめ

Word文書内のハイパーリンクのリンク先アドレスを一括で置換する方法は、上記のVBAコードを使うことで簡単かつ効率的に実現できます。通常の操作では手間がかかる作業も、VBAを活用することで大幅に時短できます。ぜひこの方法を試して、Word文書の編集作業を効率化しましょう。