Propiedad HeaderFooter.LinkToPrevious (Word)
True si el encabezado o el pie de página está vinculado al encabezado o pie de página correspondiente de la sección anterior. Boolean de lectura y escritura.
Sintaxis
expresión. LinkToPrevious
Expresión Expresión que devuelve un objeto 'HeaderFooter'.
Comentarios
Cuando un encabezado o un pie de página es vinculado, su contenido es el mismo que el del encabezado o pie de página anterior. Puesto que la propiedad LinkToPrevious está establecida en True de forma predeterminada, puede agregar encabezados, pies de página y números de página a todo el documento al trabajar con todos ellos en la primera sección. En el siguiente ejemplo se agregan números de página a los encabezados de las páginas de todas las secciones del documento activo.
ActiveDocument.Sections(1) _
.Headers(wdHeaderFooterPrimary).PageNumbers.Add
La propiedad LinkToPrevious se aplica a cada uno de los encabezados y pies de página individualmente. Por ejemplo, el valor de la propiedad LinkToPrevious podría establecerse en True para el encabezado de las páginas pares, pero en False para los pies de página de dichas páginas.
Ejemplo:
En la primera parte de este ejemplo se crea un nuevo documento con dos secciones. En la segunda, se crean encabezados únicos para las páginas pares e impares de las secciones uno y dos del nuevo documento.
Documents.Add
With Selection
For j = 1 to 4
.TypeParagraph
.InsertBreak
.TypeParagraph
Next j
End With
With ActiveDocument
.Paragraphs(5).Range.InsertBreak Type:=wdSectionBreakNextPage
.PageSetup.OddAndEvenPagesHeaderFooter = True
End With
With ActiveDocument.Sections(2)
With .Headers(wdHeaderFooterPrimary)
.LinkToPrevious = False
.Range.InsertBefore "Section 2 Odd Header"
End With
With .Headers(wdHeaderFooterEvenPages)
.LinkToPrevious = False
.Range.InsertBefore "Section 2 Even Header"
End With
End With
With ActiveDocument.Sections(1)
.Headers(wdHeaderFooterPrimary) _
.Range.InsertBefore "Section 1 Odd Header"
.Headers(wdHeaderFooterEvenPages) _
.Range.InsertBefore "Section 1 Even Header"
End With
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.