Vann crea continuamente documenti che utilizzano più sezioni. Quando si aggiungono intestazioni o piè di pagina a questi documenti, il “Collegamento al precedente”

l’impostazione è sempre attiva. Van si chiede se esiste un modo per disattivare l’impostazione per impostazione predefinita. Lo usa raramente, se non mai, e cambiarlo continuamente è una seccatura; è solo un’altra cosa che deve ricordarsi di controllare mentre lavora con il documento.

Non è possibile specificare un valore predefinito per l’impostazione Collega al precedente all’interno di Word stesso. Tuttavia, puoi modificare il modo in cui aggiungi le interruzioni al documento. Se lo fai tramite una macro, la macro può facilmente disattivare l’impostazione Collega al precedente per la nuova sezione aggiunta. Ecco un modo rapido per farlo:

Sub AddBreak()

Dim iSec As Integer

Selection.InsertBreak Type:=wdSectionBreakNextPage

iSec = Selection.Information(wdActiveEndSectionNumber)

With ActiveDocument.Sections(iSec)

.Headers(wdHeaderFooterPrimary).LinkToPrevious = False         .Headers(wdHeaderFooterEvenPages).LinkToPrevious = False         .Headers(wdHeaderFooterFirstPage).LinkToPrevious = False         .Footers(wdHeaderFooterPrimary).LinkToPrevious = False         .Footers(wdHeaderFooterEvenPages).LinkToPrevious = False         .Footers(wdHeaderFooterFirstPage).LinkToPrevious = False     End With End Sub

Il metodo .InsertBreak inserisce effettivamente l’interruzione. In questo caso, è un’interruzione della pagina successiva. Puoi specificare diversi tipi di interruzioni semplicemente cambiando l’enumerazione wdSectionBreakNextPage in uno di questi altri tipi di interruzioni:

wdSectionBreakContinuous wdSectionBreakEvenPage * wdSectionBreakOddPage

La macro quindi imposta iSec uguale al numero di indice della sezione corrente.

Viene quindi utilizzato nella struttura With per impostare la proprietà LinkToPrevious per tutti e tre i tipi di intestazioni e tutti e tre i tipi di piè di pagina.

Se preferisci, puoi cambiare la proprietà LinkToPrevious per tutte le intestazioni e i piè di pagina in tutte le sezioni del tuo documento contemporaneamente:

Sub ChangeAll()

Dim s As Section

For Each s In ActiveDocument.Sections         s.Headers(wdHeaderFooterEvenPages).LinkToPrevious = False         s.Headers(wdHeaderFooterFirstPage).LinkToPrevious = False         s.Headers(wdHeaderFooterPrimary).LinkToPrevious = False         s.Footers(wdHeaderFooterEvenPages).LinkToPrevious = False         s.Footers(wdHeaderFooterFirstPage).LinkToPrevious = False         s.Footers(wdHeaderFooterPrimary).LinkToPrevious = False     Next s 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.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

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

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (13502) si applica a Microsoft Word 2007, 2010, 2013 e 2016.