[Risolto] Numerare pagine una sì ed una no

[patel]

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

[lucky63]

.
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 (8.98 KiB) Visto 8045 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

[charlie]

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 ( ho le mie spie sguinzagliate per il web ....). Riesci a trasportare qualcosa in Writer?

[charlie]

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?

[lucky63]

.... (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;
...

[lucky63]

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 ...

[patel]

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 ( 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 ?

[charlie]

.... (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.

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.

[lucky63]

.
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.

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.

[charlie]

Le operazioni permesse non sono tante, non vedo moltiplicazione e divisione:
Edit: ma si possono fare semplicemente digitando =a*b e =a/b.

[patel]

.
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.

[lucky63]

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 145 volte

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

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.

===== SEGUE =====
.

[lucky63]

.
.... 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).

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.






.

[patel]

E' chiarissimo, grazie, ora mi hanno comunicato che questi verbali possono essere anche di 100 - 200 pagine. é impensabile di fare una macro ?

[lucky63]

.
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 ....

.

[charlie]

é impensabile di fare una macro ?

So che non ami le macro fatte con il registratore, ma potrebbe funzionare:

Codice: Seleziona tutto

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 ).

[patel]

ciao charlie, non ho capito bene come funziona, perché inizi da 4 ? inserire il ciclo è semplice ma a me non funziona

Codice: Seleziona tutto

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

[charlie]

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:

[patel]

infatti è proprio questo che occorre realizzare, riposizionare il cursore all'inizio di una nuova pagina ad ogni inizio ciclo, per ora non ci riesco

[hubert lambert]

Ciao patel, ciao tutti,

Puoi provare con la macro seguente:

Codice: Seleziona tutto

    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.

[lucky63]

.
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.

[charlie]

Ciao a tutti,
ho testato le 2 soluzioni proposte. Tanto di cappello ad entrambi, bravi.
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?

[patel]

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

[patel]

.
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.

[hubert lambert]

Ciao hubert lambert, è favolosa

Grazie

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.