Marcador en word encabezados secciones
Publicado por Rafi (71 intervenciones) el 02/07/2018 14:23:22
Hola, desde hace algún tiempo uso un código recogido, en parte de este foro y de otros, para llevar datos desde un formulario de Access a un documento de Word.
Le añadí hace tiempo y ayudado por vosotros, una parte de código para hacer lo mismo en el encabezado del documento de Word.
El problema que tengo ahora es que al hacerle una sección al documento de word, esto solo ocurre en la primera sección y no en otras. Me gustaría poder llevar datos a otras secciones del documento, exactamente los mismos que en la primera pero no entiendo el código y me veo imposibilitada con mis conocimientos.
Os pongo la parte de código que os menciono y Gracias de antemano:
Le añadí hace tiempo y ayudado por vosotros, una parte de código para hacer lo mismo en el encabezado del documento de Word.
El problema que tengo ahora es que al hacerle una sección al documento de word, esto solo ocurre en la primera sección y no en otras. Me gustaría poder llevar datos a otras secciones del documento, exactamente los mismos que en la primera pero no entiendo el código y me veo imposibilitada con mis conocimientos.
Os pongo la parte de código que os menciono y Gracias de antemano:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Set WordApp = CreateObject("Word.Application")
With WordApp
.Visible = False
.Documents.Add strDOT
End With
WordApp.Application.ActiveWindow.ActivePane.View.SeekView = 9
WordApp.Application.ActiveDocument.CustomDocumentProperties("NumAnio").Value = Nz(Me.NumAnio, " ")
WordApp.Application.ActiveDocument.CustomDocumentProperties("DAT15").Value = Nz(Me.DAT15, " ")
WordApp.Application.Selection.HomeKey Unit:=6
WordApp.Application.Selection.EndKey Unit:=6, Extend:=1
WordApp.Application.Selection.Fields.Update
WordApp.Application.ActiveWindow.ActivePane.View.SeekView = 0
With WordApp.ActiveDocument For Each strPROP In .CustomDocumentProperties Select Case strPROP.NameCase "NumAnio": strPROP.Value = Nz(Me.NumAnio, " ")
Case "DAT0": strPROP.Value = Nz(Me.DAT0, " ")
Case "DAT1": strPROP.Value = Nz(Me.DAT1, " ")
Case "DAT2": strPROP.Value = Nz(Me.DAT2, " ")
Case "DAT3": strPROP.Value = Nz(Me.DAT3, " ")
Valora esta pregunta
0