Replace LINK text

[ErikJan]

How do I replace the displayed text in links (in a Word 2003) document? There are all different links with text like "Click here", I want that to be changed into e.g. "Link"

[HansV]

Can't you simply enter Click Here in the Find what box and Link in the Replace with box in the Replace dialog? Or is that too naive?

[ErikJan]

That's what I did but that didn't work...

[HansV]

In what way did it fail? I tried it just now and it worked flawlessly (I have to admit that the text "Click here" didn't occur elsewhere in the document).

[macropod]

Hi ErikJan,

Try something like:

Code: Select all

Sub EditHyperlinkDisplayText()
Dim oHLNK As Hyperlink
For Each oHLNK In ActiveDocument.Hyperlinks
  On Error Resume Next
  oHLNK.Range.Select
  oHLNK.TextToDisplay = InputBox("Change Display Text?", "Hyperlink Display Text Editor", oHLNK.TextToDisplay)
Next
End Sub

[ErikJan]

In what way did it fail? I tried it just now and it worked flawlessly (I have to admit that the text "Click here" didn't occur elsewhere in the document).

Nothing found to replace... (and yes, I also copied the text-to-replace and pasted in into the 'find' box to make sure there were no typo's)

[HansV]

I don't know why it doesn't work for you. See if macropod's macro does what you want.

[ErikJan]

I used the code snippet, modified it a little to find only the text I was looking for and immediately replace that with the new text. That did work out fine. Thanks for the help!