从 Word 文档中批量提取所有超链接的 2 种快速方法

本文将向您展示两种从 Word 文档中批量提取所有超链接的快速方法，以便跟踪链接。

每隔一段时间，Word 文档中就会散布着数百个超链接。 在这种情况下，如果您需要访问特定链接，则必须首先浏览文档以找到它，这在长文件中可能会很痛苦。

但是，如果将它们导出到新文档，事情就会变得容易得多。 这是我们的解决方案。

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

1. 首先，单击“主页”选项卡，然后单击“查找”命令附近的箭头按钮。
2. 在下拉菜单中选择“高级查找”以打开“查找和替换”对话框。
3. 接下来单击“更多”按钮，然后单击“格式”。
4. 选择“样式”以打开“查找样式”框。
5. 选择“超链接”，然后单击“确定”。
6. 然后单击“查找位置”并选择“主文档”。

您现在可以看到选择中的所有超链接。 但是，如果将它们复制并粘贴到新文档中，您会发现链接会失去格式并变成纯文本。

目前，Microsoft 没有针对此问题的解决方案。 因此，您必须再次手动将纯文本转换回超链接。 这是我们之前的文章，列出了您可以遵循的各种方法： 将 URL 文本转换为 Word 文档中的超链接的 5 种方法

由于这个缺点，我们向您推荐另一种方法，也是在“查找”功能的帮助下进行的。 请参考本文“查找文档中的所有超链接”部分： 如何查找、更改和删除 Word 文档中的超链接

找到所有超链接后，执行“复制”和“粘贴”工作以导出它们。

方法 2：运行 VBA 代码

1. 首先和形式ost, 按“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.，它是数据恢复技术领域的世界领先者，包括 超大伤害 以及 pdf 修复软件产品。 欲了解更多信息，请访问 datanumen.com