Hola buenas tardes
Estoy intentando hacer una macro, dónde se pueda abrir una plantilla que tengo en word y se llenen los datos automáticamente con la información que tengo en excel, pero cuando corro la macro, ya no me abre el archivo.
y me marca error, esta es mi ruta,
¡Por favor, ayuda!
Sub genera_word()
ruta = "/Users/yeseniamunozlopez/Desktop/CGV CORRESPONDENCIA/VCCR/02 DV OFICIO ACUERDO ADMISION CFCRL.CGV.VCCR.00__.2021.docx"
Set objWord = CreateObject("word.Application")
objWord.Visible = True
objWord.Visible = True
objWord.Documents.Add template:=ruta, NewTemplate:=False, documentType:=0
For i = 7 To 100
busqueda = Hoja2.Range("E" & i).Text
reemplazar = Hoja2.Range("D" & i).Text
With objWord.Selection.Find
.Text = busqueda
.Replacement.Text = reemplazar
.Execute Replace:=2
End With
Next i
objWord.Activate
End Sub