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
> 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)
>
>
>
>
divento matto a scrivere le 100 righe... moltiplicato per 3 cartelle...!!
