如何選取並複製 Word 文件中的所有超連結？

作者Sun修改日期2025-10-29

當您在處理包含大量超連結的長篇 Word 文件時（無論這些連結指向網站、文件或網路位置），有時可能需要一次性複製所有超連結，以便進行稽核、分享、彙整參考資料或遷移內容。逐一手動選取不僅耗時費力，還容易遺漏或出錯。所幸，有多種高效方法可協助您快速提取所有超連結——無論是連同顯示文字一併複製，還是僅擷取超連結網址，都能大幅節省寶貴時間。本教學將為您介紹多種實用方案，包括運用 Word 內建功能、VBA 程式碼，以及 Kutools for Word 工具，讓您依需求靈活、精準地蒐集所有超連結。

使用 VBA 將所有超連結複製到新文件

使用 VBA 將僅含超鏈接地址（純文本）的內容提取至新文件

使用 Kutools for Word 將拷貝超鏈接或位址複製至剪貼簿

使用 VBA 將所有超連結複製到新文件

若您需要提取 Word 文件中每個超連結的顯示文字與實際網址，使用 VBA 程式碼即可自動將所有超連結彙整至新文件，讓整理與分享更加輕鬆高效。此方法特別適合需保留格式化記錄，或希望同時檢視連結上下文與對應 URL 的情境；尤其當您的文件在正文或表格中包含數百個超連結時，更能發揮其價值。

開啟包含超連結的 Word 文件後，按下 Alt + F11，即可開啟 Microsoft Visual Basic for Applications 視窗。

在 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

點擊執行按鈕，或按下 F5 鍵，立即執行 VBA 程式碼！程式將自動生成一份全新的 Word 文件，完整保留原始文件中的所有超連結。隨後，您可依需求儲存或進一步編輯這份新文件。
>>>

注意：此 VBA 方法僅適用於提取文字型超連結。嵌入於圖片、圖形或物件中的超連結將無法被擷取。為確保最佳效果，請先檢查您的文件，確認超連結位於文字或表格內。

使用 VBA 將僅含超鏈接地址（純文本）的內容提取至新文件

當您只需要超連結的 URL（位址），而不需要任何顯示文字或格式時（例如建立參考清單或進行資料遷移），可運用另一種 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