>
>
> Il 02/02/2011 10.27, Fernando ff77 ha scritto:
> > Ciao a tutti,
> > un fornitore mi ha mandato 50 file doc... di una pagina ciascuno..!!!
> >
> > come posso farli riunire tutti in un unico e direi bellissimo ODT ???
> se non serve automazione
> menu > inserisci > file ...
se serve POCA automazione, con una macro in basic si puo' fare abbastanza
velocemente
sub inserisci80File
dim document as object
dim dispatcher as object
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"
args2(0).Value = "file:///C:/cartella/file001.odt"
dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, args2())
args2(0).Value = "file:///C:/cartella/file002.odt"
dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, args2())
args2(0).Value = "file:///C:/cartella/file003.odt"
dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, args2())
args2(0).Value = "file:///C:/cartella/file004.odt"
dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, args2())
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)
Giacomo
--
Caselle da 1GB, trasmetti allegati fino a 3GB e in piu' IMAP, POP3 e SMTP
autenticato? GRATIS solo con Email.it: http://www.email.it/f
Sponsor:
Idee Regalo Personalizzate a partire da euro 3.90! Su MisterCupido.com alta
qualità a prezzi imbattibili... e questa settimana GRATIS per te, la
confezione regalo!
Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=11027&d=20110202
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
