Eliminazione di tutte le intestazioni e i piè di pagina (Microsoft Word)
Se lavori con documenti che ricevi da altre persone, una delle attività che potresti dover svolgere abitualmente è eliminare tutte le intestazioni e i piè di pagina nei documenti. Un modo per farlo è semplicemente selezionare le varie intestazioni e piè di pagina ed eliminarli, ma se il documento contiene molte sezioni, farlo può richiedere molto tempo. (In particolare se si considera che ogni sezione può avere fino a tre intestazioni e piè di pagina diversi.)
Le attività ripetitive e dispendiose in termini di tempo sono sempre un ottimo candidato per le macro; questa non fa eccezione. La seguente macro comprimerà ogni sezione di un documento, eliminando tutte le intestazioni e i piè di pagina che sono stati definiti.
Sub RemoveHeadAndFoot() Dim oSec As Section Dim oHead As HeaderFooter Dim oFoot As HeaderFooter For Each oSec In ActiveDocument.Sections For Each oHead In oSec.Headers If oHead.Exists Then oHead.Range.Delete Next oHead For Each oFoot In oSec.Footers If oFoot.Exists Then oFoot.Range.Delete Next oFoot Next oSec End Sub
Questa macro è molto potente: non chiede se si desidera procedere, né considera cosa può essere incluso nelle intestazioni e nei piè di pagina. Li elimina semplicemente tutti, lasciando il documento senza nessuno. Se elabori regolarmente parecchi documenti, puoi facilmente assegnare la macro a Barra degli strumenti di accesso rapido o un tasto di scelta rapida.
_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 (10221) si applica a Microsoft Word 2007, 2010, 2013 e 2016. Puoi trovare una versione di questo suggerimento per la vecchia interfaccia del menu di Word qui: