Skip to main content

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

Author: Sun Last Modified: 2025-05-12

如果您有一份包含多個超鏈接的長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內建人工智慧 ?,提供超過 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 功能AI助手 / 即時助手 / 超級潤色(保留格式)/ 超級翻譯(保留格式)/ AI遮擋 / AI校正...

📘 文件精通拆分頁面 / 合併文檔 / 以多種格式導出選擇內容(PDF/TXT/DOC/HTML...)/ 批量轉換為 PDF...

內容編輯跨多個文件進行批量查找和替換 / 調整所有圖片大小 / 翻轉表格的行與列 / 表格轉文本...

🧹 輕鬆清理:清除多餘空格 / 分節符 / 文本框 / 超鏈接 / 更多清除工具,請前往“清除”組...

創意插入:插入千位分隔符 / 複選框 / 選項按鈕 / 二維碼 / 條形碼 / 多張圖片 / 在“插入”組中發現更多...

🔍 精確選擇:精準定位特定頁面 / 表格 / 形狀 / 標題段落 / 使用更多選擇 ”功能增強導航...

星級增強功能跳轉至任意位置 / 自動插入重複文本 / 在文檔窗口之間切換 / 11 轉換工具...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 想要試用這些功能嗎?立即下載 Kutools for Word!🚀
 

最佳辦公效率工具

Kutools for Word - 100+ Word 工具