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

作者: サン最終更新日：2024年08月01日

場合によっては、複数のハイパーリンクが存在する長いドキュメントがあり、このドキュメントから一度にすべてのハイパーリンクをコピーしてから、別のドキュメントに貼り付けるだけで済みます。それらをXNUMXつずつコピーするのではなく、一度にすべてをすばやくコピーできる方法はありますか？

VBAですべてのハイパーリンクをコピーする

VBAを使用してすべてのハイパーリンクアドレスを抽出します

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

VBAですべてのハイパーリンクをコピーする

1.ハイパーリンクをコピーするWord文書を開き、を押します。 Altキー+ F11 を開く MicrosoftVisualベースのアプリケーションウィンドウ.

2。クリック インセット > モジュール、次のVBAをウィンドウにコピーします。

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

3。クリックランボタンをクリックしてVBAコードを実行します。次に、すべてのハイパーリンクが新しいドキュメントにコピーされます。新しいドキュメントは後で保存できます。結果は次のようになります。

ご注意: この VBA は、すべてのハイパーリンクがテキストにリンクされている場合にのみ実行できます。ハイパーリンクを含む画像がある場合、この VBA コードは機能しません。

VBAですべてのハイパーリンクアドレスを抽出する

1.ハイパーリンクを抽出するWord文書を開き、を押します。 Altキー+ F11 を開く MicrosoftVisualベースのアプリケーションウィンドウ.

2。クリック インセット > モジュール、次の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

3。クリックランボタンを押してVBAコードを実行します。次に、すべてのハイパーリンクアドレスが新しいドキュメントに抽出され、後で保存できます。

ご注意: 抽出ハイパーリンクアドレスが元の順序ではありません。

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

すべてのハイパーリンクまたはアドレスのみをWord文書からクリップボードに簡単かつ迅速にコピーする場合は、 ハイパーリンクをコピーする の有用性 Kutools for Word あなたにこの恩恵を与えることができます。

Kutools for Word, AI搭載 🤖、タスクを簡素化する 100 以上の便利な機能を提供します。

今すぐダウンロード

インストールした後 Kutools for Word、以下のようにしてください：

1。クリック クツールズプラス > ハイパーリンクをコピーする.

2. 「すべてのハイパーリンクをクリップボードにコピー」ダイアログが表示されたら、必要に応じてオプションを XNUMX つ選択します。

次に、ハイパーリンクを配置する場所をXNUMXつ選択し、を押します。 Ctrlキー+ V 貼り付けます。

ハイパーリンクをコピーして貼り付ける

ハイパーリンクアドレスをコピーして貼り付ける

デモ: Word 文書内のすべてのハイパーリンクをコピーする

発見 クツール / クツールズプラス このビデオのタブから Kutools for Word100 以上の機能と永久に無料の AI ユーティリティをお楽しみください。 ダウンロード中！

Chrome、Safari、Edge で複数の Web ページを閲覧するのと同じように、Office Tab を使用すると、1 つの Word ウィンドウまたは Excel ウィンドウで複数の Word 文書または Excel ワークブックを開いて管理できます。文書やワークブックの切り替えは、タブをクリックするだけで簡単に行えます。

今すぐ Office Tab を無料でお試しください!