Error al combinar datos de Tabla de Excel a Word

[SALAVERRINO]

Buenos días a los integrantes de este foro, en esta ocasión recurro a Uds, para que brinde su apoyo en como solucionar el ERROR en la siguiente instrucción que detallo, los archivos estuvieron trabajando sin ningún problema, pero haces 2 días comenzó con a fallar

Error ejecución.

Set objWord = CreateObject("Word.Application")

Siendo la macro original:

Sub tablaaword()
patharch = ThisWorkbook.Path & "\CARTA FAPOSA.docx"
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0

Worksheets("TELECREDITO").Range("A1:D7").Select
Selection.Copy

textobuscar = "[tabla_excel]"

objWord.Selection.Move 6, -1 'moverse al principio del documento
objWord.Selection.Find.Execute FindText:=textobuscar

While objWord.Selection.Find.found = True 'reemplaza el texto, y busca si hay otro para reemplazarlo

objWord.Selection.PasteExcelTable False, True, False

objWord.Selection.Move 6, -1
objWord.Selection.Find.Execute FindText:=textobuscar
Wend

objWord.Activate

End Sub

Desde ya agradezco su apoyo y colaboración.

Saludos.

[Abraham Valencia]

Hola

En realidad los errores nunca aparecen de la nada, pero lo que ocurrió, solo tú puedes saberlo. Mientras lo recuerdas, envía captura de pantalla del error y (re)confirma que sea en la línea que has mencionado.

Abraham Valencia

[SALAVERRINO]

Buenas noches @avalencia, adjunto link (imágenes) del error al ejecutar la macro, pero lo curioso es que estos archivos inicialmente se ejecuto en mi pc sin ningún problema con windows 10 (64 bits) y office 365 (32 bits) un aproximado de 2 semanas y luego ya comencé con los errores y por la tarde lo ejecute en otra maquina con windows 10 (64 bits) y office 2016 (32 bits) y si se ejecuto sin inconveniente alguno.

Saludos y espero comentarios.

https://drive.google.com/file/d/1bK2jAlIxr4kjOEYNrv7-zRLaZwGsVwKI/view?usp=sharing

https://drive.google.com/file/d/1W9rch6cetE7FP2laZHXiT0XuAI79aCe1/view?usp=sharing

 

[Abraham Valencia]

Ajá, dicho y hecho, "algo" hiciste en la configuración de tu Windows y/o tu Office. Si no fuiste tú, quizás alguien más o quizá usaste algún código que lo hizo, o quizás estás usando una PC en red cuyo dominio está a cargo de algún servidor.  En todo caso, la solución "fácil" es restaurar tu sistema operativo  a un punto anterior, es lo más práctico. Si estás como usuario de red, pídele al administrador de redes que lo haga. Si no estás en red y aún así no quieres  restaurar a un punto anterior, pues coméntalo y te doy algunas opciones para intentar arreglar el fallo pero, sinceramente, pueden ser varias cosas y todas medio complicadas. 

Abraham Valencia

[SALAVERRINO]

Buenos días @avalencia la PC la trabajo únicamente yo en modo personal, y lo que paso es actualizaron el windows y office automáticamente, y como indicas ahi fue el problema para ejecutarse la macro, la única forma sería desinstalar el office y volver a instalar y esperar que funcione el archivo y sino pasa nada ahi, ya seria windows.

 

[Abraham Valencia]

Ajá, ojo, como comenté, "algo" sí había pasado je je je.  Sugiero entonces no desinstalar nada y más bien completar/reparar la instalación de Office actual y verificar que el Windows también esté correctamente instalado y con todas las actualizaciones.

Abraham Valencia