Buenas a todos, quería plantearles una duda que me ha surgido a lo largo de programar con vba de access. Utilizo Access 2003 y estoy programando una aplicación que genera documentos de word, desde una plantilla.
Para poder cambiar el texto que tengo en el encabezado una vez empiezo a trabajar a raiz de la plantilla, no consigo que me cambie el texto del encabezado. He probado con el siguiente código, el cual he sacado de hacer la macro desde word para reproducir el comportamiento con el que trabaja word para hacer lo que yo quiero. Se supone que la primera línea se situa en el encabezado, la segunda debería escribir lo que hay en la variable sTitulo de tipo cadena en el encabezado y la tercera línea debería de situarse de nuevo en el documento fuera del encabezado.
Código:
.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
.ActiveWindow.Selection.TypeText Text:=sTitulo
.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Como no realiza lo que yo deseo (puesto que escribe el código en mitad del documento), he probado también con otras líneas de código, pero me dan el siguiente error:
Se ha producido el error '5941' en tiempo de ejecución:
El elemento del conjunto solicitado no existe.
El código es el siguiente
Código:
.ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).LinkToPrevious = False
.ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "Header text"
He probado con poner la sección a 2 o poner el LinktoPrevious a true, alguien sabria algo del tema?