Динамическое изменение текста подсказки перекрестной ссылки - PullRequest
Новая
       3

Динамическое изменение текста подсказки перекрестной ссылки

0 голосов
/ 27 февраля 2020

У меня есть ряд перекрестных ссылок в моих документах Word. Я пытаюсь запустить код, который обновляет каждый текст всплывающей подсказки перекрестной ссылки, чтобы он стал абзацем текста в целевом местоположении.

Структура моих перекрестных ссылок - «Вставить как гиперссылка», «Номер абзаца ( полный контекст) 'и' Включить выше / ниже '.

Я пытаюсь написать код, который перебирает каждую перекрестную ссылку в документе и изменяет текст всплывающей подсказки, как указано выше.

Я замечаю, что в любом Word do c, который имеет перекрестные ссылки, при наведении курсора на перекрестную ссылку отображается текст «Текущий документ; Ctrl + Клик для перехода по ссылке '. Я пытаюсь выяснить, является ли этот текст динамически модифицируемым, или этот текст встроен в скомпилированный код Microsoft. Я боюсь, что такой текст не может быть изменен. ☹

1 Ответ

1 голос
/ 29 февраля 2020

То, что вы описываете, это гиперссылки, а не перекрестные ссылки. Текст «Ctrl + Click to follow link» может быть изменен только в той степени, в которой вы можете изменить его на «Click to follow link», отредактировав опцию «Use Ctrl + Click to follow Hyperlink». Остальная часть подсказки экрана может быть сделана, чтобы показать ссылочный параграф с кодом как: 

Dim HLnk As Hyperlink
For Each HLnk In ActiveDocument.Hyperlinks
  With HLnk
    If .Address = "" Then .ScreenTip = Split(ActiveDocument.Bookmarks(.SubAddress).Range.Paragraphs.First.Range.Text, vbCr)(0)
  End With
Next
...