Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas:
Estoy intentando programar para que se copie automáticamente una tabla de excel en un documento word determinado, pero tengo dos problemas:
1. Me gustaría que se copiara en un lugar determinado del doc word, no al principio.
2. Se pega como Imagen (Metarchivo mejorado) que es lo quiero pero lo hace en un tamaño pequeño, no llena todo el ancho (que es lo que me interesa).
Sub Excel_aWord()
'Copia el rango de Excel seleccionado en un nuevo documento Word
Range("b4", "y30").Select
'copiar rango selecionado
Selection.Copy
'Crea nueva aplicación Word
Dim swMSWord As Word.Application
Dim wDoc As Word.Document
Set swMSWord = New Word.Application
With swMSWord
.Visible = True
.Activate
End With
'Abre documento Word
swMSWord.Documents.Open ("C:\documento.docx")
'Pegado de las celdas Excel
swMSWord.Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile
'Libera el objeto Word
Set swMSWord = Nothing
End Sub