L’ufficio di Carl fa ampio uso della funzionalità Rileva modifiche in Word, con i documenti che passano attraverso più persone e più revisioni prima della finalizzazione. La funzione Rileva modifiche funziona molto bene per questo scopo, con un’eccezione: il documento include, nel piè di pagina, un campo data (data di salvataggio) e ogni volta che il documento viene salvato, Rileva modifiche cancella automaticamente la data esistente e inserisce nuova data dell’ultimo salvataggio. Ciò si traduce rapidamente in un piè di pagina su più righe di campi data dell’ultimo salvataggio rivisto. Carl si chiedeva se ci fosse un modo per dire a Word di “ignorare” il piè di pagina (o un campo specificato, un blocco di testo, una sezione, ecc.) Quando si utilizza Revisioni.

La risposta breve è che no, non c’è alcun modo per farlo. La funzione Rileva modifiche può essere attivata o disattivata per l’intero documento. Ciò significa che hai solo un paio di opzioni. La prima opzione è rendere statica la data nel piè di pagina, in modo che non cambi. Potresti sostituirlo con del testo (invece di usare un campo) e poi ricordarti semplicemente di aggiornare la data come uno degli ultimi passaggi prima di terminare o stampare il documento.

Un’altra opzione è accettare sempre la modifica al piè di pagina ogni volta che apri il file in Word. Basta fare clic con il pulsante destro del mouse sulla data nel piè di pagina e quindi scegliere di accettare la modifica.

Un’altra opzione ancora è quella di utilizzare una macro per salvare effettivamente il documento (se questo è il punto in cui viene aggiornato il piè di pagina). La macro seguente esegue diverse operazioni e può essere assegnata a un pulsante della barra degli strumenti per facilità d’uso. Innanzitutto, scorre tutti i piè di pagina del documento e aggiorna tutti i campi nei piè di pagina. Quindi accetta le revisioni in quei piè di pagina. Infine, salva il documento.

Sub Save_NoFooterRevisions()

Dim rFooter As Range     Dim iSectCount As Integer     Dim j As Integer

iSectCount = ActiveDocument.Sections.Count

For j = 1 To iSectCount         Set rFooter = ActiveDocument.Sections(j) _           .Footers(wdHeaderFooterPrimary).Range         With rFooter             .Fields.Update             .Revisions.AcceptAll         End With         Set rFooter = ActiveDocument.Sections(j) _           .Footers(wdHeaderFooterEvenPages).Range         With rFooter             .Fields.Update             .Revisions.AcceptAll         End With         Set rFooter = ActiveDocument.Sections(j) _           .Footers(wdHeaderFooterFirstPage).Range         With rFooter             .Fields.Update             .Revisions.AcceptAll         End With     Next j     ActiveDocument.Save End Sub

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (10807) 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: