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

Источник: wordexpert

На форуме 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

Страница сайта http://test.interface.ru
Оригинал находится по адресу http://test.interface.ru/home.asp?artId=8868