Hi Paul!
Maybe I was little too quick to say that the proposed functions works for me. I did not actually tested the hyperlinks that where created in the Word document. I was really so happy to see that the code could be executed and the "human-friendly" links turned up. I have been using your first proposal (not the simplified one). I also realized the “target=_blank” is not needed in the HTML link. It was much easier to customize your function (also added ScreenTips):
StrSreenTip = Replace(StrTxt, "Link to ", "Click here to go to ", 1, -1, vbTextCompare)
If StrTxt <> "" Then
.Hyperlinks.Add Anchor:=RngTmp, Address:=StrTmp, TextToDisplay:=StrTxt, ScreenTip:=StrSreenTip, Target:="_blank"
Else
.Hyperlinks.Add Anchor:=RngTmp, Address:=StrTmp, ScreenTip:="Click here to go the Web Publication", Target:="_blank"
End If
.Find.Execute
I am not an VBA and Word expert so this could probably being fixed in a much better VBA coding, but I will use this for now…
Thanks again Paul!
before.jpg
after.jpg
error in hyperlink.jpg
link properties.jpg
Kind Regards
Benble