如何從Word文檔中選擇和復制所有超鏈接？
在某些情況下，您有一個包含多個超鏈接的長文檔，您只需要一次從該文檔中復制所有超鏈接，然後將它們粘貼到另一個文檔中。 有什麼方法可以快速地一次復制所有這些，而不是一個一個地複制嗎？
使用VBA複製所有超鏈接
1.打開要復制超鏈接的Word文檔，然後按 Alt + F11鍵 打開 Microsoft基於Visual的應用程序窗口.
2。 點擊 插入 > 模塊，然後將以下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
3。 點擊 運行 按鈕以運行VBA代碼。 然後將所有超鏈接複製到新文檔。 您可以稍後保存新文檔。 您可以看到如下結果。
 |
 |
 |
注意： 這個VBA只有當所有的超連結都是文字連結時才能運行，如果有超連結的圖片，這個VBA程式碼就無法運作。
用VBA提取所有超連結位址
1.打開要提取超鏈接的Word文檔，然後按 Alt + F11鍵 打開 Microsoft基於Visual的應用程序窗口.
2。 點擊 插入 > 模塊，然後將以下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
3。 點擊 運行 按鈕以運行VBA代碼。 然後，所有超鏈接地址都提取到一個新文檔中，以後可以保存。
|
|
 |
注意： 提取的超鏈接地址不是按原始順序。
使用Kutools for Word將所有超鏈接或僅地址複製到剪貼板
如果您想輕鬆快速地將所有超鏈接或僅地址從Word文檔複製到剪貼板，則 複製超鏈接 的效用 Kutools for Word 可以幫你這個忙。
安裝後 Kutools for Word，請執行以下操作：
1。 點擊 Kutools 加 > 複製超鏈接.
2. 在彈出的「將所有超連結複製到剪貼簿」對話方塊中，根據需要選擇選項。
現在，選擇一個要放置超鏈接的位置，按 按Ctrl + V 粘貼它們。
| 複製和粘貼超鏈接 |
 |
| 複製並貼上超連結地址 |
 |
示範：複製 Word 文件中的所有超鏈接
探索 庫工具 / Kutools 加 該影片中的選項卡來自 Kutools for Word。享受 100 多項功能和永久免費的 AI 實用程式。 現在下載！
| 多個 Word 文件/Excel 工作簿的選項卡式瀏覽和編輯，就像在 Chrome 和 Edge 中一樣！ |
就像在 Chrome、Safari 和 Edge 中瀏覽多個網頁一樣，Office Tab 允許您在一個 Word 視窗或 Excel 視窗中開啟和管理多個 Word 文件或 Excel 工作簿。現在，只需單擊選項卡即可輕鬆在文件或工作簿之間切換！ |
相關文章：
最佳辦公生產力工具
Kutools for Word - 透過 Over 提升您的文字體驗 100 顯著特點！
🤖 Kutools人工智慧功能: 生成內容 / 重寫文字 / 文件問答 / 獲得快速解答 / 翻譯文件 / 波蘭語文檔（保留格式）...
📘 文件掌握: 分頁 / 合併文件 / 以各種格式匯出選擇（PDF/TXT/DOC/HTML...） / 批次轉換為PDF...
✏ 內容編輯: 跨多個文件批量查找和替換 / 調整所有圖片的大小 / 轉置表行和列 / 將表格轉換為文字...
🧹 輕鬆清潔: 移開 多餘的空間 / 分節符 / 文本框 / 超鏈接 / 如需更多拆卸工具，請前往 移除 團體...
➕ 創意插入： 插入 千位分隔符 / 複選框 / 單選按鈕 / QR Code / 條碼 / 多張圖片 / 發現更多 插入 團體...
🔍 精準選擇：精確定位 特定頁面 / 檯 / 形狀 / 標題段落 / 增強導航功能 更多 選擇 功能...
⭐ 星級增強: 導航到任何位置 / 自動插入重複文字 / 在文檔視窗之間切換 / 11 轉化 工具...
