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: