Macro para actualizar información de Excel en Word
Creo que me puede ayudar con una macro que estoy desarrollando pero tengo un problemita.
De acuerdo con cambios de texto que realice en un archivo Excel, estos se deben ver reflejados en un archivo plantilla de Word. Son 25 bloques de texto (dos de ellos ubicados en el encabezado de Word). Todo va bien, pero en lo dos bloques de texto ubicados en el encabezado del Word no funciona el código (no actualiza su contenido). He buscado la solución pero no la he encontrado. Va el código a ver si me puede ayudar. De antemano gracias.
Sub ExportWord() ' patharch = ThisWorkbook.Path & "\_Res_NEGACION2020(vr.1)C.dotx" ' For i = 2 To Range("A" & Rows.Count).End(xlUp).Row Set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.Documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0 ' For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column textobuscar = Cells(1, j) objWord.Selection.Move 6, -1 objWord.Selection.Find.Execute FindText:=textobuscar ' While objWord.Selection.Find.Found = True objWord.Selection.Text = Cells(i, j) 'texto a reemplazar objWord.Selection.Move 6, -1 objWord.Selection.Find.Execute FindText:=textobuscar Wend ' Next ' MsgBox "Resolución elaborada correctamente" objWord.Activate objWord.ActiveDocument.SaveAs "C:\Users\Asus-PC\Desktop\Res_NegacionC\RES_" & Hoja6.Range("A2") & "_" & Hoja6.Range("W3") & ".docx" End Next End Sub