External reference in RTF document

[ingriva]

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

[jhorber]

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

[ingriva · Accepted solution]

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