Propiedad HeaderFooter.Index (Word)
Devuelve un WdHeaderFooterIndex que representa el encabezado o pie de página de un documento o sección. Solo lectura.
Sintaxis
expresión. Índice
expresión requerida. Variable que representa un objeto 'HeaderFooter'.
Ejemplo:
En este ejemplo, se agrega una forma al encabezado de la primera página del documento activo, si la variable especificada hace referencia al encabezado de la primera página.
Sub ChangeFirstPageFooter()
Dim hdrFirstPage As HeaderFooter
Set hdrFirstPage = ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage)
If hdrFirstPage.Index = wdHeaderFooterFirstPage Then
With hdrFirstPage.Shapes.AddShape(Type:=msoShapeHeart, _
Left:=36, Top:=36, Width:=36, Height:=36)
.Fill.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
End With
End If
End Sub
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.