Mensajes

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