Emanuele wrote:
[...]
Oppure anche questo:
http://www.oooforum.org/forum/viewtopic.phtml?t=30963
anzi, sembra quasi meglio.
Avvertenza: non so proprio nulla di OOo Basic e scripting in generale,
perciò siete avvisati... :)
Ecco la macro che sto usando adesso su Win 98 SE, adattata per le mie
prove, e che mi restituisce un errore di runtime:
***INIZIO CODICE***
sub pdf
oSourceFolder = "file:///D|/Documenti/partenza"
oStoreFolder = "file:///D|/Documenti/arrivo"
' 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")
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
***FINE CODICE***
Nella cartella D:\Documenti\partenza ho due semplici file chiamati
uno.odt e due.odt con una sola parola all'interno.
L'errore di runtime viene segnalato alla linea:
oDoc.storeToURL(oStoreFile, Array(MakePropertyValue("FilterName",
"writer_pdf_Export"),)
e la finestra di dialogo dell'errore al lancio della macro riporta il
testo seguente:
***Inizio testo dell'errore***
Errore di runtime basic.
An exception occurred
Type: com.sun.star.task.ErrorCodelOException
Message: .
***Fine del testo***
Qualche idea?
Saluti,
Gianluca
--
http://www.letturefantastiche.com/
Letture Fantastiche - Acquisto e lettura gratuita di libri o racconti di
fantascienza, fantasy, noir, horror, narrativa storica o allostorica e
altro, legato al genere fantastico. Nel sito ufficiale dell'autore
Gianluca Turconi sono disponibili opere anche di altri scrittori.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
