Breaking up a string that part is hyperlink and part is normal text

[Bruce]

I have a list of sites that have some text at the end.

This list is formated like this

hyperlink<space>city,<space>state

I would like to get this list to a format such as
hyperlink<some searchable char like a tilde> city, state.
The hyperlink text is usually the company name, so there is not the .htm or
html in it.

What I am trying to do is to get this into a list that I can put into a
table broken down to 2 columns 1 with the hyperlink, and one with the
location

Thanks!
Bruce

 

[Bear]

Bruce:

This seems to work.

Sub X()

Dim objLink As Hyperlink

For Each objLink In ActiveDocument.Hyperlinks
objLink.Range.InsertAfter "~"
Next objLink

End Sub