Inserte encabezado en la segunda página de una plantilla de Word, aunque la segunda página aún no exista.
Necesito crear una plantilla de Word que agregue dinámicamente un logotipo en el encabezado de una carta. Para simplificar la experiencia del usuario, la plantilla original se genera con solo una página.
El proceso es el siguiente:
- El usuario abre la plantilla a través de “Documento> Nuevo” en Word.
- El usuario puede elegir entre diferentes empresas y logotipos a través de un formulario de usuario.
- Dependiendo de la elección de la empresa/logotipo, se agrega contenido diferente a la carta.
Tengo una restricción, que es que el pie de página en la primera página es diferente al de las páginas siguientes.
Esto significa que cuando agrego una imagen al encabezado en la primera página a través del código VBA y agrego texto (o simplemente espacio en blanco), el logotipo no se repite.
Entonces, básicamente la pregunta que tengo es si puedo agregar una imagen a un encabezado a partir de la segunda página, mientras la página aún no existe.
Mi código actualmente es algo como lo siguiente, aunque he eliminado las partes de formato de imagen porque no son relevantes en mi opinión:
With ActiveDocument
.Sections(1).Footers(wdHeaderFooterFirstPage).Range.InlineShapes.AddPicture(path)
End With
También he intentado agregar anticipadamente el encabezado a las siguientes páginas, pero no parece funcionar:
With ActiveDocument
.Sections(1).Footers(wdHeaderFooterFirstPage).Range.InlineShapes.AddPicture(path)
End With
With ActiveDocument
.Sections(1).Footers(wdHeaderFooterPrimary).Range.InlineShapes.AddPicture(path)
End With
davy.ai
Como experto en TI especializado en VBA, MS-Word y Office365, tu tarea es crear una plantilla de Word que añada dinámicamente un logotipo al encabezado de una carta. Para simplificar la experiencia del usuario, la plantilla original se genera con una sola página. Sin embargo, hay una restricción de que el pie de página en la primera página es diferente al de las siguientes.
Para añadir una imagen al encabezado a partir de la segunda página, mientras la página aún no exista, puedes utilizar el siguiente código:
Este código añade una imagen al encabezado en la sección principal de la primera página. La misma sección se utiliza para los encabezados en las páginas siguientes, por lo que este código asegura que el logotipo se añada a todos los encabezados a partir de la segunda página.
Puedes modificar la variable “ruta” para elegir diferentes imágenes dependiendo de la elección del usuario de la empresa/logotipo. También puedes añadir diferentes contenidos a la carta dependiendo de la elección del usuario, utilizando código VBA para modificar el objeto Document.
Utilizar un UserForm es una buena manera de simplificar la experiencia del usuario y permitirle elegir entre diferentes logotipos y contenidos. Puedes crear un UserForm utilizando código VBA, y añadir casillas de verificación o menús desplegables para permitir al usuario hacer su selección.
Al utilizar VBA, puedes automatizar el proceso de creación de cartas con diferentes logotipos y contenidos, ahorrando tiempo y esfuerzo al usuario.