vba - MSFT Wordでコンテンツのテーブルを作成している間、ハイパーリンクを保持します

Question

毎日のニュース記事を集めたドキュメントを持っています。各記事の見出しは、ハイパーリンク（記事の出所）を指しています。記事自体ではなく、見出しのハイパーリンクを指すように目次を組み立てる方法はありますか？現在は手動で行われているので面倒ですが、自動化して簡単にしたいと思います。

Answer 1

いくつかの注意：

Sub CreateList()
Dim hyp As Hyperlink

For Each hyp In ActiveDocument.Hyperlinks
    s = s & hyp.TextToDisplay
    s = s & vbTab & hyp.Address
    s = s & vbTab & hyp.Range.Information(wdActiveEndPageNumber)
    s = s & vbCrLf
Next
    ''Debug.Print s
    ActiveDocument.Range(Start:=0, End:=0).InsertBefore s
End Sub

より詳細な返信は、より多くの情報で可能かもしれません。

コメントを再確認

Dim hyp As Hyperlink
Dim r As Range
Dim doc As Document
Dim cont As Document

Set doc = Word.Documents("MyDocument.doc")
Set cont = Word.Documents.Add

Set r = cont.Range(Start:=0, End:=0)

For Each hyp In doc.Hyperlinks
    r.Hyperlinks.Add r, hyp.Address, hyp.SubAddress, hyp.ScreenTip, hyp.TextToDisplay, hyp.Target
    Set r = cont.Range(cont.Content.End - 1)
    r.InsertAfter vbTab & hyp.Range.Information(wdActiveEndPageNumber) & vbCrLf
    Set r = cont.Range(cont.Content.End - 1)
Next