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.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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.