cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

External reference in RTF document

ingriva
Contributor

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

ingriva
Contributor

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

 

jhorber
MEGA
MEGA

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