VBA: Enviar datos de Excel a Word usando Macros

"Jesús G." escribió en el mensaje news:%

Hola amigos:

Con copiar datos desde Excel podemos pegar en Word. Pero, voy más allá
quiero crear una macro que realice algo así:

1º Desde excel, crear un documento de microsoft Word
2º Ponerle el nombre que deseo a dicho documento.
3º Coger datos de un rango de celdas de Excel.
4º Introducirlos datos en Word y cerrar el documento.

Si se anima alguien...

Saludos

Jesús G.

Intenta:

Sub TrabajandoConWord()
Dim appW As Object
Set appW = CreateObject("Word.Application")
With appW
.Documents.Add
Worksheets("Hoja1").[A1:B5].Copy
.Selection.TypeParagraph
.Selection.PasteExcelTable linkedtoexcel:=False, wordformatting:=False, RTF:=False
.activedocument.SaveAs ("C:\prueba1.doc")
.activedocument.Close
appW.Quit
End With
Set appW = Nothing
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel

Hola Fernando:

Perfecto. Eso es lo que quería. Ahora ya sé como "hincarle el diente". Ha
sido de gran ayuda.

Muchas gracias.

Saludos

Jesús G.



"Fernando Arroyo" escribió en el mensaje
news:%
"Jesús G." escribió en el mensaje
news:%

Hola amigos:

Con copiar datos desde Excel podemos pegar en Word. Pero, voy más allá
quiero crear una macro que realice algo así:

1º Desde excel, crear un documento de microsoft Word
2º Ponerle el nombre que deseo a dicho documento.
3º Coger datos de un rango de celdas de Excel.
4º Introducirlos datos en Word y cerrar el documento.

Si se anima alguien...

Saludos

Jesús G.

Intenta:

Sub TrabajandoConWord()
Dim appW As Object
Set appW = CreateObject("Word.Application")
With appW
.Documents.Add
Worksheets("Hoja1").[A1:B5].Copy
.Selection.TypeParagraph
.Selection.PasteExcelTable linkedtoexcel:=False,
wordformatting:=False, RTF:=False
.activedocument.SaveAs ("C:\prueba1.doc")
.activedocument.Close
appW.Quit
End With
Set appW = Nothing
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel

Fernando Arroyo escribió el 02/04/2004 21:32 :

"Jesús G." escribió en
el mensaje news:%

Hola amigos:

Con copiar datos desde Excel podemos pegar en Word. Pero, voy más
allá
quiero crear una macro que realice algo así:

1º Desde excel, crear un documento de microsoft Word
2º Ponerle el nombre que deseo a dicho documento.
3º Coger datos de un rango de celdas de Excel.
4º Introducirlos datos en Word y cerrar el documento.

Si se anima alguien...

Saludos

Jesús G.

Intenta:

Sub TrabajandoConWord()
Dim appW As Object
Set appW = CreateObject("Word.Application")
With appW
.Documents.Add
Worksheets("Hoja1").[A1:B5].Copy
.Selection.TypeParagraph
.Selection.PasteExcelTable linkedtoexcel:=False, wordformatting:=False,
RTF:=False
.activedocument.SaveAs ("C:prueba1.doc")
.activedocument.Close
appW.Quit
End With
Set appW = Nothing
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel

Hola Fernando! Veo que entendes bien el tema! Yo estoy sufriendo, quiero hacer lo mismo pero copiando y pegando como metarchivo mejorado de windows. Se puede? Y como sería si lo quiero hacer en un archivo existente?
Gracias! Saludos,
Laura

Jesús G. escribió el 02/04/2004 16:11 :

Hola amigos:

Con copiar datos desde Excel podemos pegar en Word. Pero, voy más
allá
quiero crear una macro que realice algo así:

1º Desde excel, crear un documento de microsoft Word
2º Ponerle el nombre que deseo a dicho documento.
3º Coger datos de un rango de celdas de Excel.
4º Introducirlos datos en Word y cerrar el documento.

Si se anima alguien...

Saludos

Jesús G.

aqui una solución bastante buena http://www.combito.com/?p=523