Pagine vuote automatiche alla fine di una sezione (Microsoft Word)
Word ti consente di aggiungere diversi tipi di interruzioni di sezione nel tuo documento. Due dei tipi di interruzione di sezione comportano l’aggiunta di pagine vuote al documento, se necessario. Ad esempio, se si utilizza un’interruzione di sezione Pagina dispari e la sezione precedente termina su una pagina dispari, Word inserisce automaticamente una pagina pari vuota in modo che la sezione successiva possa iniziare dalla pagina dispari successiva.
Il problema con questo è che Word inserisce una pagina assolutamente vuota, non stampa nemmeno le intestazioni o i piè di pagina sulla pagina. Se preferisci intestazioni e piè di pagina o altre informazioni sulla pagina (come “Questa pagina è stata lasciata intenzionalmente vuota”), non puoi fare affidamento solo sulle interruzioni di sezione di Word.
Un approccio consiste nell’esaminare manualmente un documento e, se necessario, aggiungere il proprio testo invisibile che verrebbe “stampato” sulla pagina che altrimenti sarebbe vuota. Puoi creare testo invisibile aggiungendo testo normale e formattandolo come bianco. Il bianco su bianco, una volta stampato, è invisibile.
Word, tuttavia, non se ne rende conto e fornisce intestazioni e piè di pagina nella pagina “vuota”.
Un approccio interessante è creare il proprio testo standard di fine sezione. Crea una voce di blocco predefinito che contenga il testo di fine sezione, inclusa un’interruzione di pagina all’inizio della voce. Assegna alla voce un nome simile a “BLANKPAGE”. Quindi, alla fine di ogni sezione, appena prima dell’interruzione di sezione, aggiungi il seguente campo composto:
{ if { =int( {page} / 2 ) * 2 } = { page } " " { autotext "BLANKPAGE" } }
Ricorda che le parentesi graffe mostrate in questo esempio dovrebbero essere parentesi graffe di campo. Immettere le parentesi graffe di campo premendo Ctrl + F9 per ogni set. Il campo verifica se la pagina corrente è, in questo caso, pari. Se lo è, il campo inserisce automaticamente il blocco predefinito utilizzando il campo AUTOTEXT.
Se lo si desidera, è anche possibile creare una macro che scorrerà il documento, esaminerà ogni sezione, deciderà quante pagine ci sono nella sezione e quindi aggiungere un’interruzione di pagina alla fine della sezione, se necessario. La seguente macro fa proprio questo compito:
Sub CheckSecLen() Dim iSec As Integer Dim oRng As Range Dim iValue As Integer With ActiveDocument ' go through each section (except for the last one) For iSec = 1 To .Sections.Count - 1 ' create a range object at the start of the section Set oRng = .Sections(iSec).Range oRng.Collapse wdCollapseStart ' insert a sectionpages field .Fields.Add Range:=oRng, Type:=wdFieldSectionPages ' divide the sectionpages field by 2 ' if it gives a zero as the remainder, then ' you have an even number of pages in the section, ' which is what you want with an odd section page break If (.Sections(iSec).Range.Fields(1).Result Mod 2) <> 0 Then ' if you have an odd number of pages, then insert ' a page break before the section's section break Set oRng = .Sections(iSec).Range With oRng .Collapse Direction:=wdCollapseEnd .MoveEnd unit:=wdCharacter, Count:=-1 .InsertBreak Type:=wdPageBreak End With End If ' remove the sectionpages field that was added .Sections(iSec).Range.Fields(1).Delete Next iSec End With End Sub
_Nota: _
Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.
WordTips è la tua fonte di formazione economica su Microsoft Word.
(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (12565) si applica a Microsoft Word 2007, 2010, 2013, 2016, 2019 e Word in Office 365. Puoi trovare una versione di questo suggerimento per vecchia interfaccia del menu di Word qui: