Skip to main content

Kutools for Office — 一套工具，五種功能。完成更多工作。

如何選取並拷貝Word文檔中的所有超鏈接？

Author Sun Last modified

如果您有一份包含多個超鏈接的長Word文檔，並且需要一次性拷貝所有超鏈接，手動逐一選取每個超鏈接可能會非常耗時。幸運的是，有一些高效的方法可以提取並拷貝所有超鏈接或僅提取其地址。本指南將介紹幾種快速完成此操作的不同方法。

使用VBA將所有超鏈接拷貝到新文檔

通過VBA，您可以從文檔中提取所有超鏈接並將它們拷貝到一個新的文檔中。

  1. 打開包含超鏈接的Word文檔，然後按下 Alt + F11 打開 Microsoft Visual Basic for Applications 窗口。
  2. 點擊 插入 > 模組，然後複製並將以下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代碼。將會打開一個新文檔，其中包含原始文檔中的所有超鏈接。
    Document with text with hyperlinks >>> New document with only text with hyperlinks

注意：此VBA方法僅適用於基於文本的超鏈接，無法提取嵌入在圖片中的超鏈接。

使用VBA將僅超鏈接地址（純文本）提取到新文檔

此VBA方法僅提取文檔中的超鏈接地址並將其粘貼到新文檔中。

  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. 點擊 執行 按鈕。將創建一個新文檔，其中僅包含超鏈接地址（純文本）。
    Document with text with hyperlinks >>> New document with only hyperlink addresses

注意：提取的超鏈接地址可能不會按照原始文檔中的順序出現。

使用Kutools for Word將超鏈接或地址拷貝到剪貼板

Kutools for Word 提供了一種簡單的方法，只需點擊幾下即可將所有超鏈接或僅其地址拷貝到剪貼板。

Kutools for Word，內建 AI 🤖，提供超過 100 種實用功能，助您簡化工作任務。
  1. 點擊 Kutools Plus > 拷貝超鏈接。
    Copy Hyperlink button on the Kutools tab on the ribbon
  2. 在「拷貝所有超鏈接至剪貼板」對話框中，選擇所需的選項。
    Copy all hyperlinks to clipboard dialog box
  3. 通過按下 Ctrl + V 將拷貝的超鏈接粘貼到您想要的位置。
  • 如果您選擇了「超鏈接」選項，則顯示文字和超鏈接都會被拷貝。
    Text with hyperlinks pasted
  • 如果您選擇了「超鏈接地址」選項，則僅會拷貝超鏈接地址作為純文本。
    Hyperlinks addresses pasted
Kutools for Word 是終極的 Word 增益工具，能夠簡化您的工作並提升文檔處理技能。立即獲取！

演示：拷貝Word文檔中的所有超鏈接

在這段來自 Kutools for Word 的影片中探索 Kutools / Kutools Plus 標籤。享受 100+ 項功能以及永久免費的 AI 工具。立即下載！

多個 Word 文件/Excel 工作簿的分頁瀏覽與編輯，就像在 Chrome 和 Edge 中一樣！

就如同在 Chrome、Safari 和 Edge 中瀏覽多個網頁一樣，Office Tab 讓您可以在一個 Word 視窗或 Excel 視窗中開啟並管理多個 Word 文件或 Excel 工作簿。現在只需點擊分頁即可輕鬆切換文件或工作簿！

立即免費試用 Office Tab！

相關文章：

最佳辦公效率工具

Kutools for Word -透過超過 100 項卓越功能，提升您的 Word 使用體驗！

🤖 Kutools AI Features：AI Assistant／Real-Time Assistant／Super Polish（保留格式）／Super Translate（保留格式）／AI Redaction／AI Proofread...

📘 文件掌握：分割頁面／文檔合併／區域導出成各種格式（PDF/TXT/DOC/HTML...）／批量轉換為 PDF...

✏ 正文編輯：批量查找與替換多個文件／批量調整所有圖片大小／翻轉表格的行與列／表格轉文本...

🧹 輕鬆清理：快速清除多餘空格／分節符／文字框／超連結／更多清除工具請前往刪除工具組...

➕ 創意插入：插入千位分隔符／複選框／選項按鈕／二維碼／條形碼／批量插入圖片／還有更多精彩功能在插入工具組...

🔍 精確選擇：精確定位特定頁面／表格／形狀／標題段落／使用更多 選擇 功能提升導航效率...

⭐ 亮點增強：導航至任何區域／自動插入重複文字／切換文檔窗口／11 項轉換工具...

🌍 支援40+種語言：可用 Kutools於您偏好語言環境——支援英語、西班牙語、德語、法語、中文以及超過40種語言！

Kutools and Kutools Plus tabs on the Word Ribbon
👉 想立即體驗這些功能嗎？立即下載 Kutools for Word！🚀
 

✨ Kutools for Office——一次安裝，五大強力工具！

包含 Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 五大工具一次全擁有 | 🔗 與 Microsoft Office 無縫整合 | ⚡ 即刻省時提高工作效率

最佳辦公效率工具

Kutools for Word - 100+ 款 Word 工具

免費下載 立即購買 深入瞭解 Kutools