P
prem1234
Can anyone tell why does Word 2007 crashes when I run this macro?
==================================================
Sub Test1()
Dim wordDoc As Word.Document
Set wordDoc = ActiveDocument
Dim str As String
str = "Hyperlink"
Dim strText As String
strText = "DisplayText"
Dim Hyp As Word.Hyperlinks
Set Hyp = wordDoc.Hyperlinks
Dim sel As Word.Selection
Set sel = Word.Selection
sel.TypeText Text:=" "
Word.ActiveDocument.Hyperlinks.Add Anchor:=sel.Range, Address:= _
str, SubAddress:="", ScreenTip:="", TextToDisplay:=strText
End Sub
==========================================================
If I remove the optional parameter
TextToDisplay:=strText
from the statement
Word.ActiveDocument.Hyperlinks.Add Anchor:=sel.Range, Address:= _
str, SubAddress:="", ScreenTip:="", TextToDisplay:=strText
It works fine!
Thanks in advance,
Prem
==================================================
Sub Test1()
Dim wordDoc As Word.Document
Set wordDoc = ActiveDocument
Dim str As String
str = "Hyperlink"
Dim strText As String
strText = "DisplayText"
Dim Hyp As Word.Hyperlinks
Set Hyp = wordDoc.Hyperlinks
Dim sel As Word.Selection
Set sel = Word.Selection
sel.TypeText Text:=" "
Word.ActiveDocument.Hyperlinks.Add Anchor:=sel.Range, Address:= _
str, SubAddress:="", ScreenTip:="", TextToDisplay:=strText
End Sub
==========================================================
If I remove the optional parameter
TextToDisplay:=strText
from the statement
Word.ActiveDocument.Hyperlinks.Add Anchor:=sel.Range, Address:= _
str, SubAddress:="", ScreenTip:="", TextToDisplay:=strText
It works fine!
Thanks in advance,
Prem