Excel - Macro no corre en algunos ordenadores

Hola, tengo problemas con una macro que solo funciona en algunos ordenadores. Lo que hace la macro es pasar la información de una tabla de excel, a unas plantillas de WORD. Cuando ocurre el error, si se abren las plantillas, pero no pasa la información de la tabla.




Sub toWord()
wArch = Sheets("Auxiliar").Range("c3").Text & Sheets("Auxiliar").Range("c2").Text & ".dotx"

Set objWord = CreateObject("Word.Application")
objWord.Visible = True

objWord.documents.Add Template:=wArch, NewTemplate:=False, DocumentType:=0
For i = 1 To Sheets("Auxiliar").Range("c1").Value
datos = Sheets("Auxiliar").Range("B" & i).Text
reemp = Sheets("Auxiliar").Range("A" & i).Text
With objWord.Selection.Find
.Text = datos
.Replacement.Text = reemp
.Execute Replace:=2
End With
Next i
objWord.Activate
End Sub

Se me ocurre infinidad de razones para que no funcione.

Prueba esto:


Así descartamos que el nombre este mal y que el fichero no existe, va a seguir dado error pero antes veras que hay en la variable y si existe el fichero.

Saludos.
\\//_

Hola, muchas gracias por tu respuesta. Procedí según lo sugerido. El messagebox indica que si existe.

Por favor, su apoyo con los siguientes pasos.

De antemano, muchas gracias por la ayuda.


Saludos

¿Puedes abrir el documento directamente con el Word?
¿Hay algún tipo de permisos que pueda bloquear el documento?

Deberías averiguar que diferencias hay entre uno y otro.

Desde la distancia es difícil saber que esta pasando en los ordenadores que no funciona.

Saludos.
\\//_