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.

RE: How to replace words on the hyperlinks by HelmutWeber

HelmutWeber
Mon Jan 21 02:15:02 PST 2008

Hi Avkokin,

Try:

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

--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
Word 2002, Windows 2000 (german versions)