найти и добавить гиперссылку в список слов с помощью MS Word VBA - PullRequest
Новая
       39

найти и добавить гиперссылку в список слов с помощью MS Word VBA

0 голосов
/ 05 ноября 2019

У меня есть текстовый файл, содержащий список сокращений. Я хочу найти все эти сокращения в словесном файле и добавить гиперссылку и полную форму этих сокращений в качестве подсказок на экране ко всем этим сокращениям. Я могу заполнить список, но я не могу использовать Selection.Find с Hyperlinks.Add.

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

Sub HoverNames()
With Selection.Find
 .ClearFormatting
 .text = "SO"
 .Execute Forward:=True
     Selection.TypeText text:="SO"
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
        "https://stackoverflow.com/", SubAddress:="", _
        ScreenTip:="StackOverflow", TextToDisplay:="SO"
End With
End Sub
...