How to replace words on the hyperlinks

[avkokin]

Hello. I have one document where there is many words as hyperlinks. I
need to replace these words on the direct links (e.g., instead of
Google must be the link http://google.com). How I can do it? Thanks.

 

[Helmut Weber]

Hi Avkokin,

Try:

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