Word文書からすべてのハイパーリンクを選択してコピーするにはどうすればよいですか？

Author Sun Last modified 2025-08-26

複数のハイパーリンクが含まれる長いWord文書があり、それらを一度にコピーする必要がある場合、手動でそれぞれを選択するのは時間がかかることがあります。幸いなことに、すべてのハイパーリンクやそのアドレスを抽出してコピーする効率的な方法があります。このガイドでは、それを迅速に行うためのさまざまな方法を紹介します。

VBAを使用してすべてのハイパーリンクを新しい文書にコピーする

VBAを使用して、プレーンテキスト形式のハイパーリンクアドレスのみを新しい文書に抽出する

Kutools for Wordを使用してハイパーリンクまたはアドレスをクリップボードにコピーする

VBAを使用してすべてのハイパーリンクを新しい文書にコピーする

VBAを使用すると、文書内のすべてのハイパーリンクを抽出し、新しい文書にコピーすることができます。

ハイパーリンクが含まれているWord文書を開き、Alt + F11を押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

クリック挿入 > モジュール次に、以下のVBAコードをコピーしてモジュールウィンドウに貼り付けます：

Sub HyperlinksExtract()
'Updateby20140214
    Dim oLink As Hyperlink
    Dim docCurrent As Document 'current document
    Dim docNew As Document 'new document
    Dim rngStory As StoryRanges
    Set docCurrent = ActiveDocument
    Set docNew = Documents.Add
    For Each oLink In docCurrent.Hyperlinks
        oLink.Range.Copy
        docNew.Activate
        Selection.Paste
        Selection.TypeParagraph
    Next
    
    Set docNew = Nothing
    Set docCurrent = Nothing
End Sub

クリック実行ボタンを押してVBAコードを実行します。元の文書内のすべてのハイパーリンクを含む新しい文書が開きます。

>>>

注意: このVBA方法は、テキストベースのハイパーリンクにのみ有効です。画像に埋め込まれたハイパーリンクは抽出されません。

VBAを使用して、プレーンテキスト形式のハイパーリンクアドレスのみを新しい文書に抽出する

このVBA方法は、文書内のハイパーリンクアドレスのみを抽出し、新しい文書に貼り付けます。

Word文書を開き、Alt + F11を押してVBAエディタを開きます。

クリック挿入 > モジュール次に、以下のVBAコードをコピーして貼り付けます：

Function GetAllHyperlinks()
'Updateby20140214
    Dim docCurrent As Document
    Dim docNew As Document
    Dim oLink As Hyperlink
    Dim rng As Range
    Application.ScreenUpdating = False
    Set docCurrent = ActiveDocument
    Set docNew = Documents.Add
    For Each oLink In docCurrent.Hyperlinks
        Set rng = docNew.Range
        rng.Collapse
        rng.InsertParagraph
        rng.InsertAfter (oLink.Address)
    Next
    docNew.Activate
    Application.ScreenUpdating = True
    Application.ScreenRefresh
End Function