Где гиперссылка в слове документа? - PullRequest
0 голосов
/ 28 февраля 2019

Я пытаюсь составить список гиперссылок и добавить местоположение внутри документа каждой гиперссылки и, если возможно, положение внутри страницы (номер строки?)

например, 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

, но не могу найтисвойство, которое говорит мне, где ссылка находится в документе.Есть идеи?

1 Ответ

0 голосов
/ 28 февраля 2019

Благодаря ссылкам @ ahmed-au я обнаружил, что следующий номер дал мне номер страницы:

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

и номер строки:

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

Коды, используемые дляполучить различную информацию о выбранном диапазоне можно на этой странице Microsoft: https://docs.microsoft.com/office/vba/api/word.wdinformation

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...