Re: [utenti] Unire più file
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 ??? grazie. ff77 http://sourceforge.net/projects/ooomacros/files/ Cerca "Combine files". Io ho provato la versione 1.1 su OOo 3.2 fornita con Ubuntu 10.04 (aggiornata a oggi 3/2/2011) e ha funzionato perfettamente. Ho fatto prove con pochi documenti, di poche pagine ciascuno. -- Marcello Romani - To unsubscribe, e-mail: utenti-unsubscr...@it.openoffice.org For additional commands, e-mail: utenti-h...@it.openoffice.org
Re: [utenti] Unire più file
Il 02/02/2011 14:42, Fernando ff77 ha scritto:
Il giorno 02 febbraio 2011 14:39, zanoprova 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: utenti-unsubscr...@it.openoffice.org
For additional commands, e-mail: utenti-h...@it.openoffice.org
Re: [utenti] Unire più file
On 02/02/2011 10:27, Fernando ff77 wrote: 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 ??? grazie. ff77 oppure: http://www.sobolsoft.com/howtouse/combine-odt-files.htm -- Barbato Ivano Via Gazzo, 12/a 36020 Zovencedo P.Iva 01719090241 C.F. BRBVNI61R08L840O Tel. 0039 0444 1836577 Cell.0039 328 2369972 Fax 0039 0444 1830365 Skype ivanobarbato E-mail iv...@ivanobarbato.com Sito Web www.ivanobarbato.com - To unsubscribe, e-mail: utenti-unsubscr...@it.openoffice.org For additional commands, e-mail: utenti-h...@it.openoffice.org
Re: [utenti] Unire più file
On 02/02/2011 10:27, Fernando ff77 wrote: 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 ??? grazie. ff77 Doc-merge -- Barbato Ivano Via Gazzo, 12/a 36020 Zovencedo P.Iva 01719090241 C.F. BRBVNI61R08L840O Tel. 0039 0444 1836577 Cell.0039 328 2369972 Fax 0039 0444 1830365 Skype ivanobarbato E-mail iv...@ivanobarbato.com Sito Web www.ivanobarbato.com - To unsubscribe, e-mail: utenti-unsubscr...@it.openoffice.org For additional commands, e-mail: utenti-h...@it.openoffice.org
Re: [utenti] Unire più file
Il 02 febbraio 2011 14:39, zanoprova 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
Re: [utenti] Unire più file
Il giorno 02 febbraio 2011 14:39, zanoprova 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...!!
Re: [utenti] Unire più file
>
>
> 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: utenti-unsubscr...@it.openoffice.org
For additional commands, e-mail: utenti-h...@it.openoffice.org
Re: [utenti] Unire più file
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 ... - To unsubscribe, e-mail: utenti-unsubscr...@it.openoffice.org For additional commands, e-mail: utenti-h...@it.openoffice.org
