Access - Buscar y reemplazar texto en word

   
Vista:

Buscar y reemplazar texto en word

Publicado por Allan (4 intervenciones) el 08/06/2017 16:02:54
Buenas,
Tengo un código con el cual encuentro y reemplazo texto en una plantilla de word.
Esta plantilla contiene 3 tablas de excel insertadas, ya que me hacen unos gráficos que no puedo hacerlos en Access 2016.
Mi pregunta es si me podéis ayudar a que el código entre en estas tablas para poder buscar y reemplazar en ellas.
Os envío una parte del código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
...
Dim datos(0 To 1, 0 To 500) As String
...
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = True
 
ObjWord.Documents.Add Template:=wArch, NewTemplate:=False, DocumentType:=0
On Error Resume Next
....
datos(0, 67) = "[OD5]"
datos(1, 67) = Me.AUDIOMET_ODreta_500
datos(0, 68) = "[OD1]"
datos(1, 68) = Me.AUDIOMET_ODreta_1000
datos(0, 69) = "[OD2]"
datos(1, 69) = Me.AUDIOMET_ODreta_2000
datos(0, 70) = "[OD3]"
datos(1, 70) = Me.AUDIOMET_ODreta_3000
datos(0, 71) = "[OD4]"
datos(1, 71) = Me.AUDIOMET_ODreta_4000
datos(0, 72) = "[OD6]"
datos(1, 72) = Me.AUDIOMET_ODreta_6000
datos(0, 73) = "[OD8]"
datos(1, 73) = Me.AUDIOMET_ODreta_8000
...
For i = 0 To UBound(datos, 2)
 
    textobuscar = datos(0, i)
    ObjWord.Selection.Move 6, -1
    ObjWord.Selection.Find.Execute FindText:=textobuscar
 
    While ObjWord.Selection.Find.Found = True
        ObjWord.Selection.Text = datos(1, i)
        ObjWord.Selection.Move 6, -1
        ObjWord.Selection.Find.Execute FindText:=textobuscar
 
    Wend
 
 
Next i
    ObjWord.Activate



Gracias y un saludo!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Revisar política de publicidad