從批處理中提取Word文檔中所有超鏈接的2種快速方法

本文將向您展示兩種從Word文檔中批量提取所有超鏈接的快速方法，以便遵循這些鏈接。

通常，在Word文檔中散佈著數百個超鏈接。 在這種情況下，如果需要單擊特定的鏈接，則必須瀏覽文檔以首先找到它，這對於長文件來說可能是一件痛苦的事情。

但是，如果將它們導出到新文檔中，事情會變得容易得多。 這是我們的解決方案。

方法1：利用“查找”功能

1. 首先，單擊“主頁”選項卡，然後單擊“查找”命令附近的箭頭按鈕。
2. 在下拉菜單上，選擇“高級查找”以打開“查找和替換”對話框。
3. 接下來單擊“更多”按鈕，然後單擊“格式”。
4. 選擇“樣式”以打開“查找樣式”框。
5. 選擇“超鏈接”，然後單擊“確定”。
6. 然後單擊“查找”，然後選擇“主文檔”。

您現在可以在選擇中看到所有超鏈接。 但是，如果將它們複製並粘貼到新文檔中，則會發現鏈接會失去其格式，而變成純文本。

當前，Microsoft沒有針對此問題的解決方案。 因此，您必須手動將純文本再次轉換回超鏈接。 這是我們較早的文章，列出了可以遵循的各種方法： 在您的Word文檔中將URL文本轉換為超鏈接的5種方法

由於這個缺點，我們建議您使用另一種方​​法，也可以在“查找”功能的幫助下執行。 請參閱本文中的“查找文檔中的所有超鏈接”部分： 如何在Word文檔中查找，更改和刪除超鏈接

找到所有超鏈接後，執行“複製”和“粘貼”工作以將其導出。

方法2：運行VBA代碼

1. 首先，按下「Alt+F11」開啟VBA編輯器。
2. 接下來單擊“插入”，然後選擇“模塊”以在“常規”項目下創建一個新模塊。
3. 然後雙擊該模塊以打開編輯空間，然後在其中粘貼以下代碼：

Sub ExtractAllhyperlinksInDoc()
  Dim objDoc As Document, objNewDoc As Document
  Dim objHyperlink As Hyperlink
 
  '  Initialization
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
 
  '  Copy hyperlinks and paste them to a new document.
  With objDoc
    For Each objHyperlink In .Hyperlinks
      objHyperlink.Range.Copy
      objNewDoc.Activate
      With Selection
        .Paste
        .InsertParagraph
        .Collapse Direction:=wdCollapseEnd
      End With
    Next objHyperlink
  End With
End Sub

4. 最後，點擊“運行”按鈕。

現在將打開一個新文檔，所有超鏈接都可以單擊。

此外，如果需要處理一批文件，則可以運行以下宏：

Sub ExtractHyperlinksFromMultiDoc()
  Dim objDoc As Document, objNewDoc As Document
  Dim objHyperlink As Hyperlink
  Dim strFile As String, strFolder As String
 
  '  Initialization
  Set objNewDoc = Documents.Add
  strFolder = InputBox("Enter folder path here: ", "Folder path")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
 
  '  Open each file in the folder to extract hyperlinks and past them to a new document.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
 
    With objDoc
      For Each objHyperlink In .Hyperlinks
        objHyperlink.Range.Copy
        objNewDoc.Activate
        With Selection
          .Paste
          .InsertParagraph
          .Collapse Direction:=wdCollapseEnd
        End With
      Next objHyperlink
    End With
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

切記先將所有文檔放在一個文件夾中。 然後運行上面的宏以獲取輸入框。 輸入文件夾路徑，然後單擊“確定”。

現在，所有超鏈接都可以在新文檔中使用。

準備出現字錯誤

無論我們多麼不願意遇到Word錯誤。 不可避免地要時不時地遭受這種痛苦。 我們的建議是當Word崩潰時，選擇熟練的 文字修復 工具。 只需將一切留給專業人士即可。

作者簡介：

陳薇薇（Vera Chen）是 DataNumen，Inc.是數據恢復技術的全球領導者，包括 XLS傷害 以及 pdf 維修軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM