13-03-2014 06:16 PM
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.
14-03-2014 03:38 PM
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
13-03-2014 07:00 PM
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