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:
Gracias y un saludo!
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.ActivateGracias y un saludo!
Valora esta pregunta
0