cancel
Showing results for 
Search instead for 
Did you mean: 

External reference in RTF document

SOLVED
Highlighted
Occasional Contributor

External reference in RTF document

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

2 REPLIES
MEGA

Re: External reference in RTF document

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

Jerome
Occasional Contributor

Re: External reference in RTF document

This is what I need Smiley Happy

 

' 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