How to replace words on the hyperlinks

A

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.
 
H

Helmut Weber

Hi Avkokin,

Try:

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