Question

我试图列出一个超链接，并将每个超链接的文档内的位置附加到页面内（如果可能的话，行号？）

例如https://stackoverflow.com ............第234行58

我知道如何从Document对象获取超链接

Dim objDoc As Document
Dim i As Integer
Set objDoc = Documents.Open(FileName:=sUri)
For i = 1 To objDoc.Hyperlinks.Count
     debug.print objDoc.Hyperlinks(i).Address
next i

但是我找不到一个属性来告诉我链接在文档中的位置。有想法吗？

Answer 1

由于@ ahmed-au链接，我发现以下内容为我提供了页码：

objDoc.Hyperlinks(i).Range.Information(wdActiveEndPageNumber)

和行号：

objDoc.Hyperlinks(i).Range.Information(wdFirstCharacterLineNumber)

此Microsoft页面上用于获取有关所选范围的各种信息的代码： https://docs.microsoft.com/office/vba/api/word.wdinformation

Word文档中的超链接在哪里？

1 个答案: