Discussion :

[samalairbien]

Bonjour, (ou re)

Je souhaiterais savoir s'il existait une manière (script ou macro) d'automatiser l'ouverture et l'enregistrement d'un document OpenOffice sans ouvrir l'interface du logiciel. En particulier, je souhaite mettre en entrée d'OpenOffice un fichier xml et produire (par l'intermédiaire de filtres XML) un fichier odt en sortie. Si ça vous parle, j'aurais besoin de vos lumières...

Merci d'avance.
Cordialement,

[lucquiluc]

Bonjour,
je ne suis pas certain que cela réponde totalement à ta question, mais voici quelques pistes :
Il est possible d'ouvrir un document OpenOffice par batch, sans passer par l'interface, ni voir OpenOffice s'ouvrir (en fait, Oo sera exécuté en mode caché) :
"<disque>\<dossier contenant le fichier soffice.exe>\soffice.exe" -headless "document OpenOffice à ouvrir avec son extension" "macro://<nom du document OpenOffice SANS extension>/<bibliothèque>.<module>.<nom de la macro>"

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c:\Program Files\OpenOffice\soffice.exe" -headless "document.odt" "macro://document/bibliDesMacros.Module.maMacro"

lance la macro "maMacro" de "document.odt" en mode caché (le fichier document.odt n'est pas visible), sachant que maMacro se trouve dans le module "Module" qui est lui-même dans la bibliothèque "bibliDesMacros".

Ensuite, tu peux demander à maMacro de faire des traitements, de créer un nouveau document puis de le sauvegarder ...

[samalairbien]

Merci lucquiluc pour ta réponse.

Depuis mon pst, j'ai en fait suivi la voie des macro openoffice que je lance en mode invisible. Cependant, j'ai un petit soucis pour ouvrir un document xml docbook et l'enregistrer en odt. Quand je passe par l'interface de Writer, ça marche tout seul car le filtre (que j'ai configuré comme il faut) s'exécute automatiquement.
Seulement voilà, ça ne marche pas avec la macro suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
' Save document as an OpenOffice 2 file. 
Sub SaveAsOOO( cFile ) 
	dim cURL as string
	dim oDoc as object
	dim cFileExt as string
   ' mostly a copy of SaveAsPDF. Save as an OpenOffice file. 
   cURL = ConvertToURL( cFile )
   oDoc = StarDesktop.loadComponentFromURL( cURL, "_blank", 0, (_
   			Array(MakePropertyValue( "Hidden", True ),))
 
   ' Set output file extension based on lower-case 
   ' version of input extension.
   Select Case LCase(Right(cFile,3))
     Case "ppt"         ' PowerPoint file.
       cFileExt = "odp"
     Case "doc"         ' Word file.
       cFileExt = "odt"
     Case "xls"         ' Excel file.
       cFileExt = "ods"
     Case "xml"			' Fichiers docbook pour rte
       cFileExt = "odt" 
     Case "odm"
       cFileExt = "odt" ' Document maitre vers odt
     Case Else
       cFileExt = "xxx"
    End Select
 
   cFile = Left( cFile, Len( cFile ) - 3 ) + cFileExt
   cURL = ConvertToURL( cFile )
 
   print "Fichier enregistré dans " + cFile
 
   oDoc.storeAsURL( cURL, Array() )
   oDoc.close( True )
 
End Sub
 
Function MakePropertyValue( Optional cName As String, Optional uValue ) _
   As com.sun.star.beans.PropertyValue
   Dim oPropertyValue As New com.sun.star.beans.PropertyValue
   If Not IsMissing( cName ) Then
      oPropertyValue.Name = cName
   EndIf
   If Not IsMissing( uValue ) Then
      oPropertyValue.Value = uValue
   EndIf
   MakePropertyValue() = oPropertyValue
End Function

Car je pense qu'il faut stipuler à MakePropertyValue que je veux appliquer le filtre docbook: la propriété doit avoir pour nom FilterName et pour valeur le filtre docbook. Mais voilà, je ne sais pas comment désigner ce filtre dans la propriété. J'ai essayé comme ça mais ça ne fonctionne pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
' Save a docbook document as an OpenOffice 2 file. 
Sub SaveDbkAsOOO( cFile ) 
	dim cURL as string
	dim oDoc as object
	dim cFileExt as string
   ' mostly a copy of SaveAsPDF. Save as an OpenOffice file. 
   cURL = ConvertToURL( cFile )
   oDoc = StarDesktop.loadComponentFromURL( cURL, "_blank", 0, (_
   			Array(MakePropertyValue( "Hidden", True ),))
 
 
   cFile = Left( cFile, Len( cFile ) - 3 ) + "odt"
   cURL = ConvertToURL( cFile )
 
   oDoc.storeAsURL( cURL, Array(MakePropertyValue( "FilterName", "DocBook" ),))
   print "Fichier enregistré dans " + cFile
   oDoc.close( True )
 
End Sub

Est-ce que quelqu'un sait?

NB: je vais avoir le même soucis pour enregistrer un document maître .odm en .odt...




**********************************************************
Finalement, la première macro fonctionne bien : le filtre docbook est appelé automatiquement. Problème résolu!