Il 02/02/2011 14:42, Fernando ff77 ha scritto:
Il giorno 02 febbraio 2011 14:39, zanoprova<[email protected]> ha scritto:
se serve POCA automazione, con una macro in basic si puo' fare abbastanza
velocemente
sub inserisci80File
---
rem eccetera eccetera per gli altri 77 file
end sub
quindi basta aprire un documento, posizionare il cursore nel punto dove
inserire i documenti e avviare la macro.
Volendo, potresti aggiungere un salto pagina tra un documento e l'altro (il
registratore di macro č tuo amico, per vedere come)
divento matto a scrivere le 100 righe... moltiplicato per 3 cartelle...!!
sub inserisci80File
dim document as object
dim dispatcher as object
dim percorso as string
dim ext as string
percorso = "/home/beppe/tmp/"
ext = ".odt"
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Name"
args2(1).Name = "Filter"
args2(1).Value = "writer8"
for i= 0 To 70
args2(0).Value = ConvertToURL(percorso & i & ext)
If FileExists(ConvertToURL(percorso & i & ext)) Then
MsgBox percorso & i & ext & " => " & ConvertToURL(percorso
& i & ext)
dispatcher.executeDispatch(document, ".uno:InsertDoc", "",
0, args2())
dispatcher.executeDispatch(document,
".uno:InsertPagebreak", "", 0, Array())
End If
next
rem eccetera eccetera per gli altri 77 file
end sub
ciao
Beppe
--
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]
