Saludos a todos y cada uno de los que lean esto. Tengo este codigo en VBA con excel y word 2010, y estoy programando esta rutinita muy elegante por cierto pero hay algo que me tiene a estallar,
Código:
Sub exportaraword2()
Dim datos(0 To1,0 To 3) As String '(columna,fila)
patharch = ThisWorkbook.Path & "c:\total.dotx"
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0
datos(0, 0) = "[reemp_nombre]"
datos(1, 0) = Hoja1.Cells(1, 1) 'datos(columna,fila) = Hoja1.cells(fila,columna)
datos(0, 1) = "[reemp_direccion]"
datos(1, 1) = Hoja1.Cells(2, 1)
datos(0, 2) = "[reemp_telefono]"
datos(1, 2) = Hoja1.Cells(3, 1)
datos(0, 3) = "[reemp_edad]"
datos(1, 3) = Hoja1.Cells(4, 1)
For i = 0 To UBound(datos, 3)
textobuscar = datos(0, i)
objWord.Selection.Move 8, -1
objWord.Selection.Find.Execute FindText:=textobuscar
While objWord.Selection.Find.found = True
objWord.Selection.Text = datos(1, i) 'texto a reemplazar
objWord.Selection.Move 8, -1
objWord.Selection.Find.Execute FindText:=textobuscar
Wend
Next i
MsgBox Application.UserName
objWord.Activate
End Sub
en la parte donde comienza el bucle me saca el error9 que tiene que ver con los indices de la matriz con la que estoy trabajando. el indice es el 3 que esta con color azul y ahi es el error, pero yo reviso y pues no se que pasa no me entra al bucle que pasa??
si te das cuenta lo otro que esta en colores son los pares de datos dela matrix y en efecto son 4 o de 0-3 es 4 por que el error?