Hello.
I need to add an external reference inside an RTF descriptor.
I need to show this reference as an external Hyperlink.
Solutions, suggestion and samples are welcome.
Thanks
Marco
Solved! Go to Solution.
Hello Marco
For MEGA 2009 SP5, see the user manuel MEGA Publisher, page 84 and 66
http://community.mega.com/mega/attachments/mega/725/9/29/MEGA%20Publisher%20EN.pdf
This is what I need
' Create RTF Hyperlink from External Reference (Marco Riva)
Sub Generate(oObject, oContext, sUserData, sResult)
Dim oWordApplication
Set oWordApplication = CreateObject("Word.Application")
Dim oWordDocument
Set oWordDocument = oWordApplication.Documents.Add
Dim objRange
Dim objLink
Dim objLinkText
objLinkText = oObject.GetProp("~AxnIPj4V)800[Percorso completo]")
oWordDocument.Paragraphs.Add
Set objRange = oWordDocument.Range()
Set objLink = oWordDocument.Hyperlinks.Add _
(objRange, objLinkText, ,"Accedi al documento", objLinkText )
oObject.GetRoot.SaveWordDocumentAsRTF oWordDocument, sResult
oWordApplication.Quit
End Sub