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.
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
