Как заменить текст гиперссылки на прямую ссылку

На форуме Microsoft, посвященном обсуждению различных нюансов работы с программами из пакета Microsoft Office, был задан вопрос: Как в Word или в Excel преобразовать гиперссылку в простой текст (нужно, чтобы осталось не слово, а путь, скрывающийся под гиперссылкой)?
Лично я в последнее время несколько отошел от основ программирования в VBA, поэтому попросил помощи на англоязычном форуме и получил простое решение. Код макроса, заменяющего текст в виде гиперссылки на прямую ссылку, привожу ниже:

Sub changeHLink()
Dim oHpl As Hyperlink
For Each oHpl In ActiveDocument.Hyperlinks
   oHpl.TextToDisplay = oHpl.Address
Next
End Sub

• Подписаться на рассылку " Windows и Office: новости и советы "
• Обратиться в "Интерфейс" за дополнительной информацией/по вопросу приобретения продуктов