MSFT Wordでcontenstのテーブルを作成中にハイパーリンクを保持

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