Word文書からすべてのハイパーリンクを選択してコピーするにはどうすればよいですか?
複数のハイパーリンクが含まれる長い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
- クリック 実行 ボタンを押すと、プレーンテキスト形式のハイパーリンクアドレスのみを含む新しい文書が作成されます。
>>>
注意: 抽出されたハイパーリンクアドレスは、元の文書と同じ順序で表示されない場合があります。
Kutools for Wordを使用してハイパーリンクまたはアドレスをクリップボードにコピーする
Kutools for Wordは、すべてのハイパーリンクまたはそのアドレスをクリップボードにコピーする簡単な方法を提供します。数回のクリックで完了します。
- 「Kutools Plus」→「ハイパーリンクをコピー」をクリックします。
- 「すべてのハイパーリンクをクリップボードにコピー」ダイアログボックスで、目的のオプションを選択します。
- Ctrl + Vを押して、コピーしたハイパーリンクを任意の場所に貼り付けます。
- 「 ハイパーリンク 」オプションを選択すると、表示テキストとハイパーリンクの両方がコピーされます。
- 「 ハイパーリンクアドレス 」オプションを選択すると、ハイパーリンクアドレスのみがプレーンテキストとしてコピーされます。
デモ: Word文書内のすべてのハイパーリンクをコピーする
このビデオでKutools for WordからKutools / Kutools Plusタブを発見してください。100+ の機能と永久に無料のAIユーティリティをお楽しみください。今すぐダウンロード!
複数のWord文書やExcelブックをChromeやEdgeのようにタブで閲覧・編集! |
Chrome、Safari、Edgeで複数のウェブページを閲覧するように、Office Tabを使えば、1つのWordウィンドウまたはExcelウィンドウで複数のWord文書やExcelブックを開き、管理できます。文書やブック間の切り替えは、タブをクリックするだけで簡単に行えます! |
関連記事:
最高のオフィス生産性ツール
Kutools for Word - Wordの体験を100以上の素晴らしい機能で向上させましょう!
🤖 Kutools AI機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ (形式を保持) / スーパー トランスレート (形式を保持) / AI編集 / AI校正...
📘 文書のマスタリー: ページの分割 / 文書の結合 / 様々な形式で選択をエクスポート (PDF/TXT/DOC/HTML...) / 一括PDF変換...
✏ 内容の編集: 複数ファイルにわたる一括検索と置換 /すべての画像をリサイズ / 表の転置 / 表をテキストに変換...
🧹 簡単なクリーンアップ:余分なスペース / セクション区切り / テキストボックス / ハイパーリンクを一掃 / その他の削除ツールは削除グループへ...
➕ 創造的な挿入: 千の区切りを挿入 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の画像 / 挿入グループでさらに発見...
🔍 精密な選択: 特定のページ / 表 / 図形 / 見出し段落を特定 / より多くの 選択 機能でナビゲーションを強化...
⭐ スター強化: 任意の場所に移動 / 繰り返しテキストを自動挿入 / 文書ウィンドウ間を切り替え /11 の変換ツール...

最高のオフィス生産性ツール
Kutools for Word - 100+ Word用ツール
- 🤖 Kutools AI機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ / スーパー トランスレート / AI編集 / AI校正
- 📘 文書のマスタリー: ページの分割 / 文書の結合 / 一括PDF変換
- ✏ 内容の編集: 一括検索と置換 /すべての画像をリサイズ
- 🧹 簡単なクリーンアップ:余分なスペースを削除 / セクション区切りを削除
- ➕ 創造的な挿入: 千の区切りを挿入 / チェックボックスを挿入 / QRコードを作成