Il 02 febbraio 2011 14:39, zanoprova <zanopr...@email.it> ha scritto:
>
>>
>>
>> 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
>
Non comodissimo, se il problema è occasionale fa prima a fare
Inserisci/File Inserisci/File Inserisci/File che tutto il papiro della
macro.
Non c'è un modo per dire leggi tutti i file che trovi nella directory
tal dei tali ?
> 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: utenti-unsubscr...@it.openoffice.org
> For additional commands, e-mail: utenti-h...@it.openoffice.org
>
>
---------------------------------------------------------------------
To unsubscribe, e-mail: utenti-unsubscr...@it.openoffice.org
For additional commands, e-mail: utenti-h...@it.openoffice.org
