ワード文書でハイパーリンクを見つける方法は？

Question

私はVB 2015で作業していますが、問題があります。 ハイパーリンクを含む複数の単語を含む段落を含む単語文書内のハイパーリンクを探したい。すべてのハイパーリンクを見つけてテキストファイルまたはテキストボックスにリストするにはどうすればよいですか？

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タイプを宣言しています。したがって、あなたはたった一つの文字列を取得し、他の文字列は取得しません。 ...それが何に

注意のコメントは、以下のコードを参照してください：コードを試してみました。このコードは以下のList(Of String)にすべてのハイパーリンクを取得するだけでLINQ文です

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

テスト。あなたは、あなたがしたい場合を通じて、ループは、私が見

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