WORD 2010 Macro para editar encabezados y pies de página

Question

Tengo experiencia básica en VBA y mi experencia de macro anterior era principalmente con WORD 2003. Las macros de grabación solían tomar los comandos de menú de GoToFooter (o editar pie de página) y permitir la edición posterior. En WORD 2010, este (y muchos otros) comandos no "graban" en la Macro (sin embargo, cuando estoy en modo Grabación, ingreso a la función Editar pie de página).

Una búsqueda de varias opciones de VBS muestra varias maneras de crear pies de página y realizar cambios de configuración de pie de página en Macro. Sin embargo, si simplemente quiero revisar el nombre de la empresa dentro del pie de página (por ejemplo), no puedo encontrar la manera de hacerlo dentro de una subrutina de macros.

Esta subrutina es una que llamaría desde la macro principal que está recorriendo cada archivo en una carpeta (subcarpetas &). Tengo el funcionamiento Macro principal.

¿WORD 2010 Macro-VBA excluye la función simple Editar-Pie de página?

Gracias de antemano

Así, gracias a Issun, aquí está mi solución:

` 
Sub Sub_FTR_0() 
' 
ActiveDocument.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter 

For i = 1 To ActiveDocument.Sections.Count 
'REM: INSERT Code from RECORD MACRO recorded when editing one Footer correctly 
    Selection. [[xxx]], etc. 

If i = ActiveDocument.Sections.Count Then GoTo Line1 

    ActiveDocument.ActiveWindow.ActivePane.View.NextHeaderFooter 

Line1: 
Next 

    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument 

End Sub 
` 

Answer 1

Aquí está una manera que usted puede acceder a los encabezado/pie a través de VBA. Como se puede ver, es bastante complicada sintaxis para llegar a algo tan simple: p existen

Sub EditHeadersAndFooters() 

Dim i As Long 

For i = 1 To ActiveDocument.Sections.Count 
    With ActiveDocument.Sections(i) 
     .Headers(wdHeaderFooterPrimary).Range.Text = "Foo" 
     .Footers(wdHeaderFooterPrimary).Range.Text = "Bar" 
    End With 
Next 

End Sub 

Aquí hay un enlace con el ejemplo de código en la forma de cambiar las cabeceras de todos los archivos en una carpeta. Toma un enfoque diferente y nunca lo he intentado, pero para su referencia: http://www.vbaexpress.com/kb/getarticle.php?kb_id=45

Answer 2

Esto funcionó para mí para todas las páginas del documento.

word.ActiveDocument.Sections (1) .Headers (1) .Range.Text = "Ponga la cabecera aquí"