Macro para pegar celdas Excel en Word
Esta macro nos deja automatizar el proceso de pegar las celdas Excel seleccionadas, en un documento nuevo de Word.
Procedimiento
Esta macro debe agregarse a las macros personales, para estar a mano desde cualquier libro Excel.
El código
Sub Copiar_Excel_a_Word() 'mandar las celdas Excel seleccionadas a nuevo documento Word 'copiar rango selecionado Selection.Copy 'crear nueva aplicación Word Dim appWord As Word.Application Set appWord = New Word.Application With appWord .Visible = True .Activate End With 'crear nuevo documento Word appWord.Documents.Add 'pegar celdas Excel appWord.Selection.Paste 'liberar el objeto Word Set appWord = Nothing End Sub
