如何在word文档中查找超链接？

Question

我正在开发 VB 2015，但遇到了问题。 我想在包含一个段落的 word 文档中找到超链接，该段落包含几个包含超链接的单词。 如何找到所有超链接并将它们列在文本文件或文本框中？

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim wa As Microsoft.Office.Interop.Word.Application
        Dim wd As Microsoft.Office.Interop.Word.Document
        Dim wp As Microsoft.Office.Interop.Word.Paragraph
        wa = CreateObject("Word.Application")
        wa.Visible = False
        wd = wa.Documents.Add
        wp = wd.Content.Paragraphs.Add
        wp.Range.Paste()
        wd.SaveAs("F:\sample.docx")

        Dim colHyperlinks As String = wd.Hyperlinks.ToString

        For Each objHyperlink In colHyperlinks
            TextBox1.Text = objHyperlink.TextToDisplay
        Next

        wa.Quit()
    End Sub

End Class

Answer 1

正如上面评论中提到的，您在Word.Hyperlinks集合对象上声明了一个string类型。 因此，您只会得到一个字符串，而不会得到任何其他字符串。 请参阅下面的代码，评论它的作用......

注意：代码经过测试

'returns a collection of links, not a string
Dim colHyperlinks As Word.Hyperlinks = wd.Hyperlinks() 

下面的代码只是一个LINQ语句，用于将所有超链接放入List(Of String) 。 如果需要，您可以循环遍历，然后将它们添加到Textbox如果需要）...

'get all the hyperlinks
Dim arr As List(Of String) = (From hl As Word.Hyperlink In colHyperlinks Select hl.TextToDisplay).ToList()

'show the url's
TextBox1.Text = String.Join(Environment.NewLine, arr)

或者如果您愿意，只需一行...

TextBox1.Text = String.Join(Environment.NewLine, (From hl As Word.Hyperlink In colHyperlinks Select hl.TextToDisplay).ToList())