ich versuche, einen Hyperlink auf eine andere odt-Datei in ein Writer-Dokument einzufügen:
Code: Alles auswählen
Sub InsertHyperlink(filePath As String)
Dim url As String
Dim oDoc As Object, oText As Object, oLink As Object
oDoc = ThisComponent
oText = oDoc.Text
url = ConvertToUrl(filePath)
oLink = oDoc.createInstance( "com.sun.star.text.TextField.URL" )
oLink.URL = url
oLink.Representation = filePath
'XRay oLink ' -> Format = 2
oText.insertTextContent(oText.getEnd(), oLink, false) ' Illegal argument
End Sub
insertTextContent löst Exception IllegalArgument aus.
Wie mache ich das richtig?
Vielen Dank,
Fred