View Single Post
 
Old 04-19-2014, 03:23 AM
Benble Benble is offline Windows 7 32bit Office 2010 32bit
Novice
 
Join Date: Apr 2014
Posts: 12
Benble is on a distinguished road
Default Regarding the topic Convert html links into embedded hyperlinks

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
Reply With Quote