如何從Word文檔中選擇和復制所有超鏈接？
在某些情況下，您有一個包含多個超鏈接的長文檔，您只需要一次從該文檔中復制所有超鏈接，然後將它們粘貼到另一個文檔中。 有什麼方法可以快速地一次復制所有這些，而不是一個一個地複制嗎？
使用Kutools for 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, 與以上 方便的功能，使您的工作更加輕鬆。 | ||
安裝後 Kutools for Word，請執行以下操作：（現在免費下載Kutools for Word！）
1。 點擊 Kutools 加 > 複製超鏈接.
2.在彈出的對話框中，根據需要選擇一個選項。
現在，選擇一個要放置超鏈接的位置，按 按Ctrl + V 粘貼它們。
| 複製和粘貼超鏈接 |
 |
| 複製並粘貼超鏈接地址 |
 |
演示：複製超鏈接
分頁瀏覽和編輯多個Word文檔/ Excel工作簿，如Firefox，Chrome，Internet Explore 10！ |
|
您可能很熟悉在Firefox / Chrome / IE中查看多個網頁，並通過輕鬆單擊相應的選項卡在它們之間進行切換。 在這裡，Office選項卡支持類似的處理，使您可以在一個Word窗口或Excel窗口中瀏覽多個Word文檔或Excel工作簿，並通過單擊它們的選項卡輕鬆地在它們之間進行切換。 |
 |
相關文章：
最佳辦公生產力工具
Kutools for Word - 透過 Over 提升您的文字體驗 100 顯著特點！
🤖 Kutools 人工智慧助手：用人工智慧改變你的寫作 - 生成內容 / 重寫文字 / 總結文件 / 查詢資料 基於文檔，全部在Word中
📘 文件掌握: 分頁 / 合併文件 / 以各種格式匯出選擇（PDF/TXT/DOC/HTML...） / 批次轉換為PDF / 將頁面匯出為圖像 / 一次列印多個文件...
✏ 內容編輯: 批量查找和替換 跨多個文件 / 調整所有圖片的大小 / 轉置表行和列 / 將表格轉換為文字...
🧹 輕鬆清潔: 移開 多餘的空間 / 分節符 / 所有標題 / 文本框 / 超鏈接 / 如需更多拆卸工具，請前往我們的 刪除組...
➕ 創意插入： 插入 千位分隔符 / 複選框 / 單選按鈕 / QR Code / 條碼 / 對角線表 / 公式標題 / 圖片說明 / 表格標題 / 多張圖片 / 發現更多 插入組...
🔍 精準選擇：精確定位 特定頁面 / 表 / 形狀 / 標題段落 / 增強導航功能 更多 選擇功能...
⭐ 星級增強: 快速導航至任何位置 / 自動插入重複文字 / 在文檔視窗之間無縫切換 / 11 轉換工具...
