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
|
option explicit
' Exporte un document maitre (odm) en document texte (odt)
Sub ExportODMasODT( cFile )
dim cURL as string
dim oDoc as object
Dim PropFichOuv(0) as New com.sun.star.beans.PropertyValue
Dim PropFichSauv(0) as New com.sun.star.beans.PropertyValue
cURL = ConvertToURL( cFile )
' Ouverture du document
PropFichOuv(0).Name = "Hidden" 'nom de l'argument
PropFichOuv(0).Value = True 'valeur de l'argument
oDoc = StarDesktop.loadComponentFromURL( cURL, "_blank", 0, PropFichOuv() )
cFile = Left( cFile, Len( cFile ) - 4 ) + ".odt"
cURL = ConvertToURL( cFile )
' Save the document using a filter.
PropFichSauv(0).Name = "FilterName" 'nom de l'argument
PropFichSauv(0).Value = "writerglobal8_writer" 'valeur de l'argument
' PropFichSauv(0).Value = "writer8"
oDoc.storeToURL( cURL, PropFichSauv())
oDoc.close( True )
End Sub |
Partager