Vann crea documentos todo el tiempo que usan múltiples secciones. Al agregar encabezados o pies de página a estos documentos, el «Enlace al anterior»

la configuración siempre está activada. Van se pregunta si hay alguna forma de desactivar la configuración de forma predeterminada. Rara vez, o nunca, lo usa, y cambiarlo todo el tiempo es una molestia; es solo una cosa más que debe recordar verificar mientras trabaja con el documento.

No hay forma de especificar un valor predeterminado para la configuración Vínculo a anterior dentro de Word. Sin embargo, puede cambiar la forma en que agrega saltos en su documento. Si hace esto a través de una macro, la macro puede desactivar fácilmente la configuración Enlace a anterior para la nueva sección agregada. Aquí tienes una forma rápida de hacerlo:

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

El método .InsertBreak realmente inserta la ruptura. En este caso, es un salto de página siguiente. Puede especificar diferentes tipos de rupturas simplemente cambiando la enumeración wdSectionBreakNextPage a uno de estos otros tipos de rupturas:

wdSectionBreakContinuous wdSectionBreakEvenPage * wdSectionBreakOddPage

Luego, la macro establece iSec igual al número de índice de la sección actual.

Luego, esto se usa en la estructura With para establecer la propiedad LinkToPrevious para los tres tipos de encabezados y los tres tipos de pies de página.

Si lo prefiere, puede cambiar la propiedad LinkToPrevious para todos los encabezados y pies de página en todas las secciones de su documento a la vez:

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: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (13502) se aplica a Microsoft Word 2007, 2010, 2013 y 2016.