Pagine

lunedì 23 gennaio 2023

MS Word: Eliminare Intestazioni e piè di pagina all'interno di un documento

Normalmente, è possibile rimuovere rapidamente tutte le intestazioni e i piè di pagina da un documento MS Word semplicemente facendo doppio clic sul campo dell'intestazione o del piè di pagina, per poi rimuoverli tutti in una sola volta. Se il documento contiene più tipi di intestazione e piè di pagina tale operazione va ripetuta per ciascun tipo, in alternativa è possibile utilizzare la funzione Verifica documento:
Dal menu File di MS Word, nella sezione Informazioni, cliccare su Verifica documento quindi su Controlla documento.
MS Word, Controlla documento
FIG 1 - MS Word, Controlla documento

Dalla finestra di dialogo, deselezionare tutte le opzioni lasciando attiva solo Intestazione, piè di pagina e filigrana e cliccare sul pulsante Controlla.
MS Word, Intestazioni, piè di pagina e filigrane
FIG 2 - MS Word, Intestazioni, piè di pagina e filigrane

Nella finestra successiva cliccare su Rimuovi tutto.
Rimuovi tutto
FIG 3 - Rimuovi tutto
Cliccare su Chiudi per ritornare al documento.

Eliminare Intestazioni e piè di pagina tramite VBA

Per eliminare tutte le intestazioni e piè di pagina presenti all'interno del documento, è possibile utilizzare VBA:
Avviare Microsoft Visual Basic, Application Edition tramite la combinazione di tasti ALT+F11.
Dal menu Inserisci, selezionare Modulo.
VBA, Modulo
FIG 4 - VBA, Modulo

Incollare il seguente codice
 Sub RemoveHeaderAndFooter()  
   Dim oSec As Section  
   Dim oHeader As HeaderFooter  
   Dim oFooter As HeaderFooter  
   For Each oSec In ActiveDocument.Sections  
     For Each oHeader In oSec.Headers  
       If oHeader.Exists Then oHeader.Range.Delete  
     Next oHeader  
           For Each oFooter In oSec.Footers  
       If oFooter.Exists Then oFooter.Range.Delete  
     Next oFooter  
   Next oSec  
   Selection.WholeStory  
   ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader  
   Selection.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone  
   ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument  
      MsgBox ("Operazione completata")  
 End Sub  
VBA
FIG 5 - VBA

Cliccare sul pulsante Esegui o premere F5.






Nessun commento:

Posta un commento

I messaggi sono soggetti a moderazione da parte dell'amministratore prima della loro pubblicazione.