Macro para pasar información de Excel a Word
Tengo el siguiente código que me ayuda a pasar información de tablas en excel a word. Sin embargo al pasarlo siempre me lo deja al inicio del documento que le coloco de referencia y necesito que lo ubique donde yo le coloque una palabra guía. Por otro lado que coloque solo las columnas que me interesan por ejemplo codigo/nombre/puntaje en Tabla 1, y dentro del mismo documento otra codigo/nombre/puesto/RC en Tabla 2, y dentro del mismo archivo de excel pero en otra pestaña que pase una imagen de una grafica al mismo documento de word.
El código es el siguiente:
Private Sub cmd_Procesar_Click()
'Crear nuevo objeto de aplicación Word
Dim AppWord As Word.Application
Set AppWord = New Word.Application
'En donde nosotros ingresamos el rango copiar
Range(TxtRango).Copy
With AppWord
.Visible = True
.Activate
End With
'Creando un documento en word
AppWord.Documents.Add ("E:\Documents\Ensayo Informe completo\Plantilla Segundo.docx")
'Pegar celdas de excel
AppWord.Selection.PasteAndFormat wdFormatOriginalFormatting
AppWord.Selection.WholeStory
'Guardar el archivo
AppWord.ActiveDocument.SaveAs (Nombre_Archvo)
'Liberar objeto de Word
Set AppWord = Nothing
End Sub
Las imágenes de los procesos son las siguientes: