Word 文書内のすべてのハイパーリンクを一括で選択・コピーする方法は？

Web サイト、文書、ネットワーク上の場所などを指す多数のハイパーリンクを含む長いWord 文書を扱う際、監査、共有、参照リスト作成、コンテンツ移行などの目的で、すべてのハイパーリンクをコピーしなければならないことがあります。個別に手動でハイパーリンクを選択するのは非効率なだけでなく、ミスやリンクの見落としを招くリスクもあります。幸いにも、表示テキストとリンクの両方、あるいはハイパーリンクアドレスのみを抽出・コピーできる実用的な方法がいくつか存在します。これにより、大幅な時間短縮が可能です。本チュートリアルでは、Word の組み込み機能、VBA コード、およびKutools for Word を活用した複数のアプローチをご紹介し、目的に応じてハイパーリンクを効率的に収集する方法をお伝えします。

---

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

Word 文書内のすべてのハイパーリンクについて、表示テキストとリンク先 URL の両方を抽出したい場合は、VBA コードを使えば、それらを自動的に新しい文書に一覧化し、整理・共有が簡単になります。この方法は、ハイパーリンクのフォーマット済み記録が必要な場合や、実際のリンクとその文脈を手軽に確認したいときに最適です。特に、本文や表内に数百ものハイパーリンクが含まれる文書で効果を発揮します。

1. ハイパーリンクを含むWord 文書を開き、Alt + F11を押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。
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. 実行ボタンをクリックするか、F5キーを押して VBA コードを実行してください。このコードは、元の文書からすべてのハイパーリンクを自動的に抽出し、新しいWord 文書を生成します。必要に応じて、この新規文書を保存したり、さらに編集したりできます。

   >>>

---

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

参照リストの作成やデータ移行など、ハイパーリンクの URL（アドレス）のみを表示テキストや書式なしで取得したい場合、別の VBA メソッドを使ってアドレスだけを抽出し、新しい文書にプレーンテキストとして貼り付けることができます。これは、ハイパーリンクをカタログ化したり、技術的なタスクや監査、Web システムやデータベースとの連携のためにエクスポートするのに最適です。

1. Word 文書を開き、Alt + F11を押して VBA エディターを起動します。
2. 挿入>標準モジュールをクリックします。次の 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. 実行をクリックするか、F5キーを押してください。VBA スクリプトが文書をスキャンし、すべてのリンクのアドレスをプレーンテキスト形式で新しい文書に出力します。この新規文書はコピー・エクスポートが簡単で、他のソフトウェアでも活用できます。

   >>>

---

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

Kutools for Wordには、すべてのハイパーリンクやアドレスをワンクリックでクリップボードにコピーできる直感的な機能が搭載されており、本来なら複数の手順やコードが必要な作業を大幅に効率化します。メールやウェブページ、スプレッドシートなどに素早くリンクを挿入したいときに特に便利で、すべてのユーザーにおすすめです。

1. Word のリボンにあるKUTOOLS PLUSタブに移動し、ハイパーリンクをコピーをクリックしてください。

   

2. すべてのハイパーリンクをクリップボードにコピーダイアログボックス内で、文書内に表示されているテキスト付きでハイパーリンクをコピーするか、URL のみをコピーするかを選択できます。

   

3. 選択したハイパーリンクまたはアドレスがクリップボードにコピーされます。あとはCtrl + Vを押すだけで、新しい文書やメール、ブラウザーなど、どこにでも自由に貼り付けられます！

---

---

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

---

---

関連記事：

• Word で現在の文書のすべてのハイパーリンクを挿入・削除・一覧表示
• Word で複数のハイパーリンクを文書に挿入
• Word ですべてのハイパーリンクを削除