¿Cómo insertar encabezado o pie de página en Word desde Excel?

Para insertar un encabezado o pie de página en un documento de Word desde Excel, necesitarás utilizar VBA (Visual Basic for Applications) para automatizar esta tarea, ya que no es posible hacerlo directamente desde Excel sin programación. Aquí te dejo una guía básica para lograrlo:

   Sub InsertarEncabezadoPieDePaginaEnWord()
       Dim wdApp As Object
       Dim wdDoc As Object
       Dim archivoWord As String

       ' Cambia esta ruta al archivo de Word que deseas modificar
       archivoWord = "C:rutaalarchivodocumento.docx"

       ' Iniciar Word y abrir el documento
       On Error Resume Next
       Set wdApp = GetObject(, "Word.Application")
       If wdApp Is Nothing Then
           Set wdApp = CreateObject("Word.Application")
       End If
       On Error GoTo 0
       
       wdApp.Visible = True
       Set wdDoc = wdApp.Documents.Open(archivoWord)

       ' Agregar encabezado
       With wdDoc.Sections(1).Headers(1)
           .Range.Text = "Este es un encabezado de prueba"
       End With

       ' Agregar pie de página
       With wdDoc.Sections(1).Footers(1)
           .Range.Text = "Este es un pie de página de prueba"
       End With

       ' Guardar y cerrar el documento
       wdDoc.Save
       wdDoc.Close

       ' Cerrar Word si se abrió en este proceso
       wdApp.Quit
   End Sub
  • Abre Excel y habilita las herramientas de desarrollo:
    • Si el menú de Desarrollador no está habilitado, ve a `Archivo` > `Opciones` > `Personalizar cinta de opciones` y activa la casilla `Desarrollador`.
  • Accede al editor de VBA:
    • Haz clic en la pestaña `Desarrollador` y luego en `Visual Basic` o presiona `Alt + F11`.
  • Inserta un nuevo módulo:
    • En el editor de VBA, ve a `Insertar` > `Módulo` para crear un nuevo módulo donde escribirás tu macro.
  • Escribe o copia el siguiente código VBA:
  • Modifica la ruta del archivo:
    • Cambia `»C:rutaalarchivodocumento.docx»` por la ruta completa y el nombre de tu archivo de Word.
  • Ejecuta la macro:
    • Cierra el editor de VBA y regresa a Excel.
    • En la pestaña `Desarrollador`, haz clic en `Macros`.
    • Selecciona `InsertarEncabezadoPieDePaginaEnWord` y haz clic en `Ejecutar`.

Este script abrirá tu documento de Word, insertará el texto especificado en el encabezado y el pie de página, guardará los cambios y luego cerrará el documento. Si deseas personalizar más el contenido o aplicar formato, puedes ajustar el código de acuerdo a tus necesidades.

Conoce nuestros servicios

Conoce nuestra tienda

Mejora tu nivel y logra tus objetivo

Excel

Excel cursos

Access

cursos de Access

Power BI

cursos power BI

Deja un comentario