Bonjour,
Je cherche a faire une macro permettant de d'inserer un document impress
dans un autre document impress
La fonction enregistrer ne fonctionnant par sur impress, j'ai
enregistrer une action similaire sous writer et je m'en suis inspiré.
Voici ma macro :
Sub InsertCours(cSrc,cDest)
Dim MonDocument As Object
Dim dispatcher As Object
Dim MaFrame As Object
Dim PropFich()
cUrlSrc = ConvertToURL(cSrc)
cUrlDest = ConvertToURL(cDest)
'----------------------------------------
' Ouverture du fichier destinataire
'----------------------------------------
MonDocument = StarDesktop.LoadComponentFromURL(cUrlDest,"_blank",0,
PropFich)
MaFrame = MonDocument.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
'----------------------------------------
'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/montest.odp"
args1(1).Name = "Filter"
args1(1).Value = "impress8"
dispatcher.executeDispatch(MaFrame, ".uno:InsertDoc", "", 0, args1())
End Sub
Ce code ne génère aucune erreur mais ne fonctionne pas.
Une autre solution consisterait a procéder par étape et par un systeme
de copier/coller de slides :
- ouverture du fichier source
- copie de tous les slides
- femeture du fichier source
- ouverture du fichier destinataire
- coller tous les slides
- enregistrer le fichier destinataire
- fermer le fichier destinataire
Est ce que quelqu'un a une piste pour l'une ou l'autre solution ?
Merci.
Cordialement,
Jérôme.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
