如何選取並拷貝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 讓您可以在一個 Word 視窗或 Excel 視窗中開啟並管理多個 Word 文件或 Excel 工作簿。現在只需點擊分頁即可輕鬆切換文件或工作簿！ |
相關文章：
最佳辦公效率工具
Kutools for Word -讓你的 Word進階，擁有超過 100 項強大功能！
🤖 Kutools AI Features：AI Assistant / 即時助手 / 超級潤色（保留格式） / 超級翻譯（保留格式） / AI遮擋 / AI校正...
📘 文檔掌控：文檔拆分頁面 / 文檔合併 / 選取內容多格式導出（PDF/TXT/DOC/HTML...）/ 批量轉換為 PDF...
✏內容編輯：跨多個文件批量查找與替換 / 圖片大小統一調整 / 行列翻轉表格 / 表格轉文本...
🧹 潔淨無憂：一鍵清除多餘空格 / 分節符 /文字方塊 / 超鏈接 / 更多清除工具請至 清除所有 群組...
➕ 創新插入：插入千位分隔符 / 複選框 / 選項按鈕 / 二維碼 / 條形碼 / 批量插入圖片 / 更多插入功能請前往 插入 群組...
🔍 精準選取：鎖定特定頁面 / 表格 / 形狀 / 標題段落 / 使用更多 選取 功能提升導航效率...
⭐ 優質強化：輕鬆跳轉至文件夾 / 自動插入重複文字 / 切換文檔窗口 /11 項轉換工具...
🌍 支援40+ 種語言：可用您的偏好語言體驗 Kutools —— 支援英語、西班牙語、德語、法語、中文等超過40 種語言！
