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

在MSFT Word中创建目录时保留超链接

1 个答案: