Forum OpenOffice LibreOffice NeoOffice

Code : Tout sélectionner

Sub ExportODT
dim oDoc as object
dim oUrl as string
dim PropFich(0) as new com.sun.star.beans.PropertyValue

oDoc = thiscomponent
oURL = convertToUrl("c:\temp\test.odt")
PropFich(0).name="FilterName"
PropFich(0).value="writer: Writer8"

oDoc.storeToUrl(oURL, Propfich())
End Sub

Code : Tout sélectionner

' --------------------------------------------------------------------
' Sauvegarder ce document sous un nom composé de :
' <nom_de_ce_doc> + "_" + <numéro_de_sauvegarde>
' --------------------------------------------------------------------
' Le numéro de sauvegarde est obtenu ici par
' récupération du numéro de version de ce document.
' --------------------------------------------------------------------
' A NOTER. - Je prévois une autre version de cette macro (plus tard)
' car ici le numéro de version de ce document ne vas pas évoluer 
' au fur et à mesure de ces sauvegardes incrémentées.
' A moins bien entendu de "forcer" l'enregistrement de ce document
' juste après la sauvegarde incrémentée.
' --------------------------------------------------------------------
sub acIncrementSave_v1()
dim oDoc as object
dim sUrl1 as string, sUrl2 as string
dim iVersion as integer
dim tArgs(0) as new com.sun.star.beans.PropertyValue
dim ficExt as string

	oDoc = thiscomponent
	iVersion = oDoc.documentInfo.EditingCycles
'	print "Numéro de version de ce document : " & iVersion
	sUrl1 = oDoc.getUrl
	ficExt = acGetFileExt(sUrl1)
	
	sUrl2 = left(sUrl1, len(sUrl1) - len(FicExt) -1) _
		 & "_" & cStr(iVersion) & "." & ficExt
		 
'	msgBox 	"sUrl1 = [" & convertFromUrl(sUrl1) & "]" & chr(13) _
'		& 	"sUrl2 = [" & convertFromUrl(sUrl2) & "]"
		
	oDoc.storeToUrl(sUrl2, tArgs())
	msgBox("Document sauvegardé sous " & chr(13) _
		 & convertFromUrl(sUrl2)
end sub

'******************************************************* 07/11/08 ***
'*** Retourne l'extension du fichier, sans le point 
'*** Ex. : buf = acGetFileExt(oDoc.getUrl)
'********************************************************************
function acGetFileExt(sUrl As String) As String
Dim cpt As Integer
Const POINT = "."
	for cpt = Len(sUrl) to 1 step -1
		if Mid(sUrl, cpt, 1) = POINT then
			acGetFileExt = Mid(sUrl, cpt+1)
			exit function
		end if
	next cpt
	' Si pas de POINT, on retourne tout
	acGetFileExt = sUrl
end function