Re: VBA: Enviar datos de Excel a Word usando Macros

[lauram]

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