Alessandro Di Mariano ha scritto:
Salve qualcuno sa come posso convertire DIRETTAMENTE DA STRINGA DI
COMANDO un file (p.es .jpg .rtf .odf) in formato PDF?
tipo start>esegui>C:\Programmi\OpenOffice.org 3\program\swriter.exe
(nomefile) -(comando conversione PDF) (percorso esportazione PDF)
So che è un pò complicato ma ci provo mi serve per lavoro per un sacco
di file.....
Vi ringrazio in anticipo
http://www.mail-archive.com/[email protected]/msg04284.html
http://www.oooforum.org/forum/viewtopic.phtml?t=30963
Ho provato questa macro con 2 files nella directory
e mi sembra funzionare:
da Strumenti->macro->organizza_macro->OpenOfficeBasic
SenzaNome1 (se non hai ancora salvato il file)
Nuovo
Module1
e incolli la macro qui sotto.
Poi da visualizza->Barre_degli_stumenti->Controlli_x_formulari
inserisci un pulsante
e in eventi del pulsante abbini questa macro
Puoi premerlo e ridurre a icona il file
e lui converte tutti i files della directory in .pdf
ciao
Beppe
REM ***** BASIC *****
sub Main
rem per linux
oSourceFolder ="file:///home/beppe/dir_da_convertire"
oStoreFolder = "file:///home/beppe/dir_da_convertire/pdf/"
rem per windows mettere il percorso corretto
' This is the actual conversion loop.
nFileNum = 0
cFile = Dir$(oSourceFolder + "/*.odt")
if cFile = "" then
print "No files were found in that directory"
end if
Do While cFile <> ""
nFileNum = nFileNum + 1
cSourceName = oSourceFolder + "/" + cFile
If Not FileExists(cSourceName) Then
Msgbox(cSourceName & " was not found",0,"Error")
exit sub
end if
oDoc=StarDesktop.loadComponentFromURL(cSourceName,"_blank",63,Array(MakePropertyValue("Hidden",
True),))
oStoreFile = ConvertToURL(oStoreFolder + Left(cFile, Len(cFile) -
4 ) + ".pdf" )
oDoc.storeToURL(oStoreFile, Array(MakePropertyValue("FilterName",
"writer_pdf_Export"),)
oDoc.dispose()
cFile = Dir$
loop
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
--
le nuvole non hanno regole,
perchè non hanno mai rinunciato
alla libertà di sognare.
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
