Как я могу автоматически отформатировать текст гиперссылки в Word/Outlook?

Question

Мне нравится добавлять гиперссылки на документы Word и электронные письма в Outlook. Я обычно предпочитаю менять ссылку Text to display на что-то более читаемое, чем просто URL. Я следую шаблонам для некоторых URL. Например, у нас есть вики Confluence , и я обычно переформатирую текст ссылки из

https://host/confluence/display/space/Some+Wiki+Page

в

Our Wiki - Some Wiki Page

Конечно, сам URL довольно описательный, но я все же предпочитаю текстовую форму. Мне также нравится форматировать другие ссылки таким образом (например, Amazon.com - Some Product).

Есть ли способ создать автоматические правила для этого форматирования при вставке ссылки? Возможно в макросе?

Я также приму ответ, если есть способ автоматически вызвать диалоговое окно Insert Hyperlink при вставке ссылки.

Answer 1

Этот макрос вставит вашу ссылку в буфер обмена в TextToDisplay = " ref ". Который вы можете редактировать в макросе по своему усмотрению, и создавать несколько макросов с разными TextToDisplay.

Кто-то может легко заставить это распознать домен и предварительно отформатировать текст. Но мне это не нужно, поэтому я этого не сделал.

Для запуска этого макроса вы должны включить ссылку:

Инструменты> Рекомендации> Обзор> ..Windows\System32\FM20.dll, Открыть, ОК (добавляет библиотеку объектов MS Forms 2.0)

Это было сделано в Word 2003, так что никаких обещаний для других версий нет, но, вероятно, будет работать.

Например, я сделал один с именем hyperlink_yt, который я использую для ссылок на YouTube с TextToDisplay = "yt", назначив сочетание клавиш Alt+Y для этого макроса.

Sub hyperlink_ref()
' Makes clipboard-hyperlink ref
Dim MyData As DataObject
Dim strClip As String
Set MyData = New DataObject
MyData.GetFromClipboard
strClip = MyData.GetText
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=strClip, SubAddress:="", ScreenTip:="", TextToDisplay:="ref"
End Sub