Hello,
I'm trying to import an impress document in an other impress document
but it failed, i don't know how to do it :(
I've tried this :
Sub InsertCours(cSrc,cDest)
Dim MonDocument As Object
dim dispatcher as object
Dim PropFich()
cUrlSrc = ConvertToURL(cSrc)
cUrlDest = ConvertToURL(cDest)
'
' Ouverture du fichier destinataire
'
MonDocument = StarDesktop.LoadComponentFromURL(cUrlDest,_blank,0,
PropFich)
dispatcher = createUnoService(com.sun.star.frame.DispatchHelper)
MonDocument = ThisComponent.CurrentController.Frame
'
'Importation du fichier source
'
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = Name
args1(0).Value =
file:///home/jguenver/testmacros/modele_debut_cours.odp
args1(1).Name = Filter
args1(1).Value = impress8
dispatcher.executeDispatch(MonDocument, .uno:InsertDoc, , 0,
args1())
End Sub
There is no error, but it doesn't works :-(
Someone can help me please ?
Regards,
Jérôme.
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]