Pannello di Controllo Moderatore ]

[Risolto] Numerare pagine una sì ed una no

Discussioni sull'applicazione di videoscrittura

[Risolto] Numerare pagine una sì ed una no

Messaggioda patel » mercoledì 6 settembre 2017, 13:18

Devo preparare un Libro Verbali Assemblea Soci, le pagine devono essere 50 e salvo la prima vuote e numerate con intestazione, ma il retro della pagina deve essere sbarrato e non numerato e senza intestazione. Pensavo quindi di fare 100 pagine alternando una vuota e una sbarrata e poi stampare fronte/retro, sono riuscito ad alternare le pagine ma non a numerare soltanto quelle vuote con l'intestazione.
Le pagine vengono stampate su una stampante condivisa tra vari uffici e quindi è impraticabile la soluzione di stampare prima le pagine barrate e poi le altre sul retro.
Grazie
Allegati
EsempioLibroVerbali.odt
(13.37 KiB) Scaricato 16 volte
Ultima modifica di charlie il sabato 9 settembre 2017, 11:13, modificato 3 volte in totale.
Motivazione: Aggiunta spunta verde
-------------------
OpenOffice 4.1 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
 
Messaggi: 2586
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Numerare pagine una sì ed una no

Messaggioda lucky63 » mercoledì 6 settembre 2017, 23:19

.
Ciao.
Ecco una possibile soluzione (non completamente automatizzata ma funzionale al caso).
Si parte con un documento di testo con inizialmente TRE pagine.
Tre stili di pagina (Prima pagina - Pagina sinistra - Pagina destra).
Alla pagina 1 - associ lo stile di pagina "Prima pagina";
Alla pagina 2 - associ lo stile di pagina "Pagina sinistra";
Alla pagina 3 - associ lo stile di pagina "Pagina destra";

Nella scheda gestione stile di pagina "Prima pagina" imposta stile successivo "Pagina sinistra".
Nella scheda gestione stile di pagina "Pagina sinistra" imposta stile successivo "Pagina destra".
Nella scheda gestione stile di pagina "Pagina destra" imposta stile successivo "Pagina sinistra".

Per gli stili di pagina "Pagina sinistra" e "Pagina destra" abilita la visualizzazione dell'intestazione di pagina.

Prima pagina - (ha lo stile di pagina "Prima pagina") - Preparala con il testo che serve.

Seconda pagina - (ha lo stile di pagina "Pagina sinistra") - Inserisci nell'intestazione "la barra che deve attraversare la pagina.

Terza pagina - (ha lo stile di pagina "Pagina destra") - Inserisci nell'intestazione "il testo di preferenza che deve ripetersi" unitamente a un Comando di campo "Numero pagina" che gestirà la numerazione pagina. La numerazione del campo "Numero pagina" assumerà automaticamente il numero 3.

Scrivendo ... o inserendo interruzioni di pagina .... le pagine successive replicheranno gli stili specularmente.

A partire dalla pagina 3 i numeri di pagina visualizzati saranno automaticamente 3, 5 , 7 , 9 , ....

Per far si che quella stessa numerazione diventi progressiva (2,3,4,5, ...) occorre intervenire sul primo paragrafo di testo inserito in OGNI pagina che ha lo stile di pagina "Pagina destra" (quella con la descrizione e la numerazione automatica della pagina nell'intestazione).

Esempio:
Nell'attuale pagina 3 di cui sopra posizionarsi nel primo paragrafo del testo.
Menu > Formato > Paragrafo > Flusso di testo > Interruzzioni
Impostare come da immagine che segue:

Pagina2.png
Pagina2.png (8.98 KiB) Osservato 280 volte

Per ogni pagina d'interesse di dovrà "purtroppo" intervenire manualmente in modo uguale al precedente curando di effettuare le medesime impostazioni riportate nell'immagine soprastante ad eccezione del numero di pagina che ovviamente dovrà essere impostato incrementato secondo l'esigenza della posizione effettiva nella quale si sta intervenendo in quel momento.

Allego file con le pagine di cui sopra già organizzate con tale numerazione.


Attenzione
Allegati
EsempioLibroVerbali_01.odt
(13.61 KiB) Scaricato 9 volte
Ultima modifica di lucky63 il mercoledì 6 settembre 2017, 23:25, modificato 1 volta in totale.
Allegando al quesito un file di esempio si semplifica il lavoro di chi risponde.
Avatar utente
lucky63
 
Messaggi: 1659
Iscritto il: martedì 18 maggio 2010, 17:01

Re: Numerare pagine una sì ed una no

Messaggioda charlie » mercoledì 6 settembre 2017, 23:22

Ciao Patel, ho passato parte del pomeriggio e della serata in cerca di una soluzione. Inutilmente.
So che hai ricevuto suggerimenti per ottenere un risultato valido con MS Word ( :D :o :roll: ho le mie spie sguinzagliate per il web ....). Riesci a trasportare qualcosa in Writer?
charlie
Open Office 4.1.3 - LibreOffice 4.3.7 - NeoOffice 3.4.1
Mac OSX 10.7.5 Lion / macOS 10.12 Sierra (dual boot)
Windows 7 pro (VirtualBox)
Ubuntu 14.04 (VirtualBox)
http://www.charlieopenoffice.altervista.org
Avatar utente
charlie
 
Messaggi: 4340
Iscritto il: mercoledì 19 dicembre 2012, 11:50

Re: Numerare pagine una sì ed una no

Messaggioda charlie » mercoledì 6 settembre 2017, 23:31

lucky63 ha scritto:Per ogni pagina d'interesse di dovrà "purtroppo" intervenire manualmente


Ciao, scusa l'obiezione. Ma con tutto rispetto tanto vale inserire tutti i numeri a mano ... Sbaglio?
charlie
Open Office 4.1.3 - LibreOffice 4.3.7 - NeoOffice 3.4.1
Mac OSX 10.7.5 Lion / macOS 10.12 Sierra (dual boot)
Windows 7 pro (VirtualBox)
Ubuntu 14.04 (VirtualBox)
http://www.charlieopenoffice.altervista.org
Avatar utente
charlie
 
Messaggi: 4340
Iscritto il: mercoledì 19 dicembre 2012, 11:50

Re: Numerare pagine una sì ed una no

Messaggioda lucky63 » mercoledì 6 settembre 2017, 23:41

.... (edit)
Avevo tentato anche con l'uso dl:
- comando di campo Variabile "imposta variabile di pagina "On/Off" ma azzera il contatore ripartendo sempre da uno;
- comando di campo Variabile "Inserisci formula" ma non sono riuscito ad implementarla collegandola al numero di pagina;
- comando di campo Database "Campi per stampa in serie" e "Record dati successivo" ma non funziona in una intestazione/piè di pagina;
...
Ultima modifica di lucky63 il mercoledì 6 settembre 2017, 23:54, modificato 1 volta in totale.
Allegando al quesito un file di esempio si semplifica il lavoro di chi risponde.
Avatar utente
lucky63
 
Messaggi: 1659
Iscritto il: martedì 18 maggio 2010, 17:01

Re: Numerare pagine una sì ed una no

Messaggioda lucky63 » mercoledì 6 settembre 2017, 23:49

charlie ha scritto:scusa l'obiezione. Ma con tutto rispetto tanto vale inserire tutti i numeri a mano


La cosa è da valutarsi da parte di @Patel.
Un numero inserito "manualmente" tal quale in intestazione viene riportato così come è in tutte le pagine.
Semmai NON utilizzando la procedura dell'intestazione pagina si può fare "giocando" con due pagine preparate a dovere (riportando tutto il testo dell'intestazione nella pagina) ricopiandole e modificando di volta in volta il numero ...
Allegando al quesito un file di esempio si semplifica il lavoro di chi risponde.
Avatar utente
lucky63
 
Messaggi: 1659
Iscritto il: martedì 18 maggio 2010, 17:01

Re: Numerare pagine una sì ed una no

Messaggioda patel » giovedì 7 settembre 2017, 6:21

charlie ha scritto:Ciao Patel, ho passato parte del pomeriggio e della serata in cerca di una soluzione. Inutilmente.
So che hai ricevuto suggerimenti per ottenere un risultato valido con MS Word ( :D :o :roll: ho le mie spie sguinzagliate per il web ....). Riesci a trasportare qualcosa in Writer?
Ciao charlie, inizialmente sembrava che dovesse essere usato word e con questo il problema è stato brillantemente risolto, poi ho scoperto che era installato soltanto OpenOffice, dove i codici di campo di word (con formula) non vengono correttamente interpretati.

@lucky63 ho visto il tuo esempio allegato e mi sembra buono, come faccio ad aggiungere nuove pagine copiandole dalle precedenti ? scusami ma writer non lo conosco per niente.
su word il codice di campo utilizzato è {=MOD({PAGE};2) \# "'{=INT({PAGE})+/2)+1}';;}, si può fare qualcosa di simile su writer ?
-------------------
OpenOffice 4.1 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
 
Messaggi: 2586
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Numerare pagine una sì ed una no

Messaggioda charlie » giovedì 7 settembre 2017, 9:35

lucky63 ha scritto:.... (edit)
Avevo tentato anche con l'uso dl:
- comando di campo Variabile "imposta variabile di pagina "On/Off" ma azzera il contatore ripartendo sempre da uno;
- comando di campo Variabile "Inserisci formula" ma non sono riuscito ad implementarla collegandola al numero di pagina;
- comando di campo Database "Campi per stampa in serie" e "Record dati successivo" ma non funziona in una intestazione/piè di pagina;
...

Tutte strade che avevo provato anch'io.
lucky63 ha scritto:Un numero inserito "manualmente" tal quale in intestazione viene riportato così come è in tutte le pagine.

Certo. Ma io intendevo inserirlo nella pagina e lasciare l'intestazione così come'è senza numerazione.
Ma naturalmente questa non è una soluzione.
charlie
Open Office 4.1.3 - LibreOffice 4.3.7 - NeoOffice 3.4.1
Mac OSX 10.7.5 Lion / macOS 10.12 Sierra (dual boot)
Windows 7 pro (VirtualBox)
Ubuntu 14.04 (VirtualBox)
http://www.charlieopenoffice.altervista.org
Avatar utente
charlie
 
Messaggi: 4340
Iscritto il: mercoledì 19 dicembre 2012, 11:50

Re: Numerare pagine una sì ed una no

Messaggioda lucky63 » giovedì 7 settembre 2017, 9:40

.
Avevo già tentato la strada di costruire la formula da usare nel "Comando di campo Variabile" > "Inserisci formula" ma non ero riuscito ad implementarla.
Sembra che in Writer NON siano utilizzabili tutte le funzioni Calc ...
Accetta solo quelle predisposte per Writer...
Se vuoi provare a fare alcuni tentativi per costruirti la formula da adottare:
Da Writer > Tasto funzione F2 > Nella nuova barra che si apre puoi far ricorso alle SOLE funzioni inseribili tramite icona Fx.

FunzioniWriter.png

Altre funzioni (Calc), scrivendole direttamente nella formula e in inglese, determinano un errore nel risultato finale.

--- xxxxx ---

Per aggiungere nuove pagine alla fine dell'esempio allegato in precedenza è sufficiente utilizzare la combinazione tasti CTRL+INVIO.
Ogni nuova pagina viene riportata alternativamente in modo speculare alle precedenti assumendone i relativi stili di pagina.
Ad ogni nuova pagina "Destra" (quella con la scritta nell'intestazione) di dovrà però "purtroppo" intervenire manualmente modificando le caratteristiche del primo paragrafo (e al momento unico paragrafo) come da indicazioni precedenti.

Per l'esempio precedente allego nuovo file con paginazione già impostata fino a pagina 50.
Allegati
EsempioLibroVerbali_02.odt
(14.37 KiB) Scaricato 6 volte
Allegando al quesito un file di esempio si semplifica il lavoro di chi risponde.
Avatar utente
lucky63
 
Messaggi: 1659
Iscritto il: martedì 18 maggio 2010, 17:01

Re: Numerare pagine una sì ed una no

Messaggioda charlie » giovedì 7 settembre 2017, 9:59

Le operazioni permesse non sono tante, non vedo moltiplicazione e divisione:
Edit: ma si possono fare semplicemente digitando =a*b e =a/b.
Allegati
Schermata 09-2458004 alle 09.57.33.png
charlie
Open Office 4.1.3 - LibreOffice 4.3.7 - NeoOffice 3.4.1
Mac OSX 10.7.5 Lion / macOS 10.12 Sierra (dual boot)
Windows 7 pro (VirtualBox)
Ubuntu 14.04 (VirtualBox)
http://www.charlieopenoffice.altervista.org
Avatar utente
charlie
 
Messaggi: 4340
Iscritto il: mercoledì 19 dicembre 2012, 11:50

Re: Numerare pagine una sì ed una no

Messaggioda patel » giovedì 7 settembre 2017, 11:46

lucky63 ha scritto:.
Per aggiungere nuove pagine alla fine dell'esempio allegato in precedenza è sufficiente utilizzare la combinazione tasti CTRL+INVIO.
Ogni nuova pagina viene riportata alternativamente in modo speculare alle precedenti assumendone i relativi stili di pagina.
Ad ogni nuova pagina "Destra" (quella con la scritta nell'intestazione) di dovrà però "purtroppo" intervenire manualmente modificando le caratteristiche del primo paragrafo (e al momento unico paragrafo) come da indicazioni precedenti.
Per l'esempio precedente allego nuovo file con paginazione già impostata fino a pagina 50.


ho provato, le pagine vengono inserite alternate come in word ma col numero pari, è questo che indendi quando dici che occorre l'intervento manuale ?
Grazie ancora.
-------------------
OpenOffice 4.1 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
 
Messaggi: 2586
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Numerare pagine una sì ed una no

Messaggioda lucky63 » giovedì 7 settembre 2017, 14:43

Per comprendere meglio
Partiamo dal documento iniziale delle tre pagine con le impostazioni come detto in precedenza.

EsempioLibroVerbali_Prime 3 pagine.odt
(14.04 KiB) Scaricato 6 volte

Cliccando sull'icona di visualizzazione dei caratteri "particolari" si dovrebbero visualizzare i simboli di paragrafo (identificati dal simbolo "P-Greco".

Intestazione StilePaginaSX.png

Nella pagina 2 si notano il simbolo di paragrafo dell'intestazione (Cerchio verde nell'immagine) che anche se apparentemente vuota serve per "fissare" all'intestazione la linea trasversale che sbarra la pagina.
Nel cerchio Rosso il primo e unico paragrafo (generato dalla sequenza CTRL+INVIO) presente nel corpo testo della pagina 2.
Non dovendo compilare ulteriormente la pagina 2 passiamo alla pagina 3.

Nella pagina 3 abbiamo sempre il singolo simbolo di paragrafo (cerchio rosso) nel corpo testo e nell'intestazione due righe di cui la prima comprensiva di un campo "Numero pagina" (Cerchio verde) visualizzante il numero 3 cosi come regolarmente interpretato per essere la terza pagina del documento.

Intestazione StilePaginaDX.png


===== SEGUE =====
.
Allegando al quesito un file di esempio si semplifica il lavoro di chi risponde.
Avatar utente
lucky63
 
Messaggi: 1659
Iscritto il: martedì 18 maggio 2010, 17:01

Re: Numerare pagine una sì ed una no

Messaggioda lucky63 » giovedì 7 settembre 2017, 14:49

.
.... vedere il post precedente ....

===== SEGUE =====

Per forzare questa numerazione affinchè il numero 3 diventi 2 ci si posiziona con il mouse sul PRIMO simbolo di paragrafo nel corpo testo che è anche l'unico generato dalla combinazione CTRL+INVIO (...vedasi... Cerchio rosso nell'immagine Pagina DX del post precedente) e da Menu > Formato > Paragrafo > Flusso testo > adeguare le impostazioni come detto in precedenza e nuovamente riportato nell'immagine seguente (fare click sull'immagine se serve ingrandirla).

Paragrafo - Flusso Testo.png

Confermando le impostazioni il numero 3 iniziale indicato nel campo "Numero pagina" diventa 2.

Utilizzando la combinazione tasti CTRL+INVIO generiamo una nuova pagina con stile pagina "Pagina sinistra" (... la pagina sbarrata ...) che per il contatore del documento, a causa della forzatura generata nel flusso di testo precedente, diventa ora la pagina 3.

Utilizzando nuovamente la combinazione tasti CTRL+INVIO generiamo una nuova pagina con stile pagina "Pagina destra" (... la pagina con l'intestazione testuale ...) che per il contatore del documento diventa la pagina 4 visualizzandone questo numero nel campo "Numero pagina" dell'intestazione.
Per l'esigenza rappresentata si deve "forzare" il flusso di testo agendo come il passaggio precedentemente descritto affinchè da 4 diventi 3.

Per ogni doppia combinazione di CTRL+INVIO viene generata Una pagina Sx e una Pagina DX che replica lo stile pagina delle precedenti.
Per la pagina DX si dovrà intervenire "manualmente" sul flusso testo come già spiegato.

Similmente per le nuove pagine successive.






.
Allegando al quesito un file di esempio si semplifica il lavoro di chi risponde.
Avatar utente
lucky63
 
Messaggi: 1659
Iscritto il: martedì 18 maggio 2010, 17:01

Re: Numerare pagine una sì ed una no

Messaggioda patel » giovedì 7 settembre 2017, 15:52

E' chiarissimo, grazie, ora mi hanno comunicato che questi verbali possono essere anche di 100 - 200 pagine. é impensabile di fare una macro ?
-------------------
OpenOffice 4.1 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
 
Messaggi: 2586
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Numerare pagine una sì ed una no

Messaggioda lucky63 » giovedì 7 settembre 2017, 16:06

.
Notare che la combinazione tasti CTRL+INVIO non è strettamente necessaria.
Nella descrizione precedente è' stata utilizzata per produrre celermente nuove pagine.
Volendo si può partire anche dal documento vuoto e con la sua normale compilazione assumerà automaticamente gli stili pagina corrispondenti all'esigenza.

Bisogna ricordarsi di intervenire sul primo paragrafo della pagina con stile pagina DX per forzarne la numerazione ....

.
Allegando al quesito un file di esempio si semplifica il lavoro di chi risponde.
Avatar utente
lucky63
 
Messaggi: 1659
Iscritto il: martedì 18 maggio 2010, 17:01

Re: Numerare pagine una sì ed una no

Messaggioda charlie » giovedì 7 settembre 2017, 18:20

patel ha scritto:é impensabile di fare una macro ?

So che non ami le macro fatte con il registratore, ma potrebbe funzionare:
Codice: Seleziona tutto   Espandi visualeStringi visuale
sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Pagebreak"
args1(0).Value = com.sun.star.style.BreakType.NONE

dispatcher.executeDispatch(document, ".uno:Pagebreak", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "AttributeParaModel.Auto"
args2(0).Value = false
args2(1).Name = "AttributeParaModel.Name"
args2(1).Value = "Pagina destra"

dispatcher.executeDispatch(document, ".uno:AttributeParaModel", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "PageNumber"
args3(0).Value = 4

dispatcher.executeDispatch(document, ".uno:PageNumber", "", 0, args3())


end sub

Cambiando manualmente il valore di args3(0).Value = 4 con 5, 6, ... e applicandolo ogni volta ad una nuova pagina, la macro funziona.
Parametrizzando il valore args3(0).Value = 4 ed inserendolo in un ciclo che termini automaticamente al terminare delle pagine dovrebbe essere possibile.
(for ... next ? in queste cose sono rimasto fermo al gw-basic :oops: ).
charlie
Open Office 4.1.3 - LibreOffice 4.3.7 - NeoOffice 3.4.1
Mac OSX 10.7.5 Lion / macOS 10.12 Sierra (dual boot)
Windows 7 pro (VirtualBox)
Ubuntu 14.04 (VirtualBox)
http://www.charlieopenoffice.altervista.org
Avatar utente
charlie
 
Messaggi: 4340
Iscritto il: mercoledì 19 dicembre 2012, 11:50

Re: Numerare pagine una sì ed una no

Messaggioda patel » giovedì 7 settembre 2017, 21:12

ciao charlie, non ho capito bene come funziona, perché inizi da 4 ? inserire il ciclo è semplice ma a me non funziona
Codice: Seleziona tutto   Espandi visualeStringi visuale
sub Main
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
for N = 4 to 50 '<<<<<<<<<<<<<<<<<
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Pagebreak"
args1(0).Value = com.sun.star.style.BreakType.NONE
dispatcher.executeDispatch(document, ".uno:Pagebreak", "", 0, args1())
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "AttributeParaModel.Auto"
args2(0).Value = false
args2(1).Name = "AttributeParaModel.Name"
args2(1).Value = "Pagina destra"
dispatcher.executeDispatch(document, ".uno:AttributeParaModel", "", 0, args2())
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "PageNumber"
args3(0).Value = N '<<<<<<<<<<<<<<<<<
dispatcher.executeDispatch(document, ".uno:PageNumber", "", 0, args3())
next '<<<<<<<<<<<<<<<
end sub
-------------------
OpenOffice 4.1 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
 
Messaggi: 2586
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Numerare pagine una sì ed una no

Messaggioda charlie » giovedì 7 settembre 2017, 22:31

Ciao Patel, il 4 è preso a caso dalla prova che ho fatto registrando la macro.
Appena possibile faccio le prove con il ciclo for next ma se non funziona può essere che bisogna trovare il modo di riposizionare il cursore all'inizio di una nuova pagina ad ogni inizio ciclo.
Edit: in effetti la macro dà errore:
Allegati
Schermata 09-2458004 alle 23.08.03.png
charlie
Open Office 4.1.3 - LibreOffice 4.3.7 - NeoOffice 3.4.1
Mac OSX 10.7.5 Lion / macOS 10.12 Sierra (dual boot)
Windows 7 pro (VirtualBox)
Ubuntu 14.04 (VirtualBox)
http://www.charlieopenoffice.altervista.org
Avatar utente
charlie
 
Messaggi: 4340
Iscritto il: mercoledì 19 dicembre 2012, 11:50

Re: Numerare pagine una sì ed una no

Messaggioda patel » venerdì 8 settembre 2017, 8:50

infatti è proprio questo che occorre realizzare, riposizionare il cursore all'inizio di una nuova pagina ad ogni inizio ciclo, per ora non ci riesco
-------------------
OpenOffice 4.1 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
 
Messaggi: 2586
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Numerare pagine una sì ed una no

Messaggioda hubert lambert » venerdì 8 settembre 2017, 13:20

Ciao patel, ciao tutti,

Puoi provare con la macro seguente:
Codice: Seleziona tutto   Espandi visualeStringi visuale
    doc = thiscomponent
    T = doc.Text
    dim props(1) as new com.sun.star.beans.PropertyValue
    props(0).Name = "BreakType"
    props(0).Value = com.sun.star.style.BreakType.PAGE_BEFORE
    props(1).Name = "PageNumberOffset"
    numpag = int(inputbox("Numero di pagine:"))
    for page = 2 to numpag*2
        if (page mod 2) = 1 then
            pageoffset = int(page/2)+1
        else
            pageoffset = 0
        end if
        props(1).Value = pageoffset
        T.appendParagraph(props())
    next page

Allego un esempio.
Saluti.
Allegati
EsempioLibroVerbali-2.odt
(14.36 KiB) Scaricato 12 volte
OpenOffice 4.1.3 | LibreOffice 5.3.3
Win7 + LinuxMint
hubert lambert
 
Messaggi: 23
Iscritto il: venerdì 9 giugno 2017, 13:48

Re: Numerare pagine una sì ed una no

Messaggioda lucky63 » venerdì 8 settembre 2017, 13:47

.
Buone notizie.

In un test con il registratore di macro ho constatando che memorizzava i passaggi di "modifica paragrafo > flusso testo > paginazione ...".
Quindi, ho ricostruita la sequenza degli spostamenti necessari da tastiera in previsione di un inserimento all'interno di un loop.

Partendo dal documento iniziale di sole tre pagine (allegato precedentemente) con CTRL+INVIO ho creato celermente 252 pagine effettive.
Qualche modifica alla macro (per le mie poche e modeste conoscenze).
Macro collegata a un pulsante "non stampabile" inserito nella prima pagina.
Lanciando la macro e pazientando quanto basta, alla fine rinumera le pagine come desiderato da @Patel.
Pagina 3 diventa 2 e poi incrementano di un'unità ogni due.
Solo l'ultima pagina effettiva viene alterate per aver inserito nel loop for next un numero pagine finale bel più alto di quelle riconteggiate.
- Ultima pagina può essere eliminata;
- Macro modificata pen numero effettiva esigenza riconteggio;
- Riscontrare inizialmente da macro quante siano le effettive pagine del documento e modificare nel loop in tal senso.
Ora deve intervenire la bravura di @Patel o altri per perfezionamenti/migliorie ulteriori.

Allego il file delle 252 pagine già create.
Allegati
EsempioLibroVerbali_ConMacroRinumeraPagine.odt
(16.55 KiB) Scaricato 7 volte
Allegando al quesito un file di esempio si semplifica il lavoro di chi risponde.
Avatar utente
lucky63
 
Messaggi: 1659
Iscritto il: martedì 18 maggio 2010, 17:01

Re: Numerare pagine una sì ed una no

Messaggioda charlie » venerdì 8 settembre 2017, 14:18

Ciao a tutti,
ho testato le 2 soluzioni proposte. Tanto di cappello ad entrambi, bravi. :bravo:
Al posto di Patel chiederei la cigliegina sulla torta: non dover stabilire prima il numero delle pagine, ma la libertà di poterne aggiungere quante sono necessarie in corso di scrittura e già con il numero di pagina corretto. Chiedo troppo?
charlie
Open Office 4.1.3 - LibreOffice 4.3.7 - NeoOffice 3.4.1
Mac OSX 10.7.5 Lion / macOS 10.12 Sierra (dual boot)
Windows 7 pro (VirtualBox)
Ubuntu 14.04 (VirtualBox)
http://www.charlieopenoffice.altervista.org
Avatar utente
charlie
 
Messaggi: 4340
Iscritto il: mercoledì 19 dicembre 2012, 11:50

Re: Numerare pagine una sì ed una no

Messaggioda patel » venerdì 8 settembre 2017, 14:29

hubert lambert ha scritto:Ciao patel, ciao tutti,

Puoi provare con la macro seguente: .....

Ciao hubert lambert, è favolosa, però non ho capito dove sono la 2 e terza pagina, sono nascoste ? scusami ma conosco poco Writer.

P.S. le ho trovate, ma dovresti dirmi come fare per creare un nuovo documento per conto mio
Ultima modifica di patel il venerdì 8 settembre 2017, 17:29, modificato 1 volta in totale.
-------------------
OpenOffice 4.1 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
 
Messaggi: 2586
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Numerare pagine una sì ed una no

Messaggioda patel » venerdì 8 settembre 2017, 14:41

lucky63 ha scritto:.
Buone notizie.

In un test con il registratore di macro ho constatando che memorizzava i passaggi di "modifica paragrafo > flusso testo > paginazione ...".
Quindi, ho ricostruita la sequenza degli spostamenti necessari da tastiera in previsione di un inserimento all'interno di un loop.

Partendo dal documento iniziale di sole tre pagine (allegato precedentemente) con CTRL+INVIO ho creato celermente 252 pagine effettive.
Qualche modifica alla macro (per le mie poche e modeste conoscenze).
Macro collegata a un pulsante "non stampabile" inserito nella prima pagina.
Lanciando la macro e pazientando quanto basta, alla fine rinumera le pagine come desiderato da @Patel.
Pagina 3 diventa 2 e poi incrementano di un'unità ogni due.
Solo l'ultima pagina effettiva viene alterate per aver inserito nel loop for next un numero pagine finale bel più alto di quelle riconteggiate.
- Ultima pagina può essere eliminata;
- Macro modificata pen numero effettiva esigenza riconteggio;
- Riscontrare inizialmente da macro quante siano le effettive pagine del documento e modificare nel loop in tal senso.
Ora deve intervenire la bravura di @Patel o altri per perfezionamenti/migliorie ulteriori.

Allego il file delle 252 pagine già create.

Grazie lucky63, funziona bene, direi che il problema è risolto, ho notato che la "mia bravura" non funziona con Writer, comunque ci proverò a migliorarla.
-------------------
OpenOffice 4.1 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
 
Messaggi: 2586
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Numerare pagine una sì ed una no

Messaggioda hubert lambert » venerdì 8 settembre 2017, 18:15

patel ha scritto:Ciao hubert lambert, è favolosa

Grazie :)
patel ha scritto:però non ho capito dove sono la 2 e terza pagina, sono nascoste ?

L'intestazione va memorizzata con il stile pagina, che esista anche se non è utilizzato.
OpenOffice 4.1.3 | LibreOffice 5.3.3
Win7 + LinuxMint
hubert lambert
 
Messaggi: 23
Iscritto il: venerdì 9 giugno 2017, 13:48


Torna a Writer

Chi c’è in linea

Visitano il forum: Nessuno e 15 ospiti