如何從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!)
現在,選擇一個要放置超鏈接的位置,按 按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 轉換工具...