En primer lugar, Felices Fiesta a
tod@s los componentes del foro.
Gracias a la ayuda de prga tengo una combinación
de Access-Word mediante código VBA, todo me funciona bien, pero ahora he
querido hacer un pequeño cambio en el documento que se genera.
Como bien he dicho tengo un
documento Word (7 paginas) con un encabezado fijo en cada sección de página (como
se ve en la imagen)
|
|
EXPEDIENTE
NÚM. {Atestado}
|
FOLIO
UNO.-
y fuera del encabezado tengo
insertado la palabra FOLIO UNO, FOLIO DOS, etc.
Lo que me ocurría era que cuando
realizaba la combinación con el documento Word, se desplazaba, es decir todo lo que había escrito en el FOLIO UNO se desplazaba
hacia abajo, así como FOLIO DOS, luego con el botón retroceso iba cuadrando
todo. Para que esto no me ocurriera dentro del encabezado de cada sección he
insertado la palabra FOLIO UNO, FOLIO DOS, etc., que ocurre ahora, que cuando
realizo la combinación en el texto {Atestado} no me aparece el número del
atestado. Que debería de añadir a la instrucción, para que me saliera en cada página
el número de atestado junto con la palabra FOLIO.
Espero no haber sido muy lioso en
la explicación. Un saludo
‘nos movemos al encabezado de la página en
curso
appword.Application.ActiveWindow.ActivePane.View.SeekView = 9
.Execute findtext:="{Atestado}",
replacewith:=Forms!FDatoshechos!Atestado, Format:=True, Replace:=2
'volvemos al
'centro' de la página
appword.Application.ActiveWindow.ActivePane.View.SeekView
= 0
.Execute findtext:="{Atestado}",
replacewith:=Nz(Forms!FDatoshechos!Atestado, ""), Format:=True,
Replace:=2