Pasar texto de Excel a Word.

Iñaki escribió:

hola .
Me gustaria saber como puedo paras automaticamente un texto de excel a un
nuevo documento Word.

Gracias.

Hola Iñaki :-)

Bien no se como andaras de codigo, pero puedes probar algo asi:

[este codigo no te guardara el docuemnto de word, simplemente copiara a
un nuevo docuemnto de word]

'

Sub Prueba_1()

Dim appWD As Word.Application

Set appWD = CreateObject("Word.Application")

appWD.Visible = True

Worksheets("hoja1").Range("a1:A20").Copy

appWD.Documents.Add

appWD.Selection.Paste

Application.CutCopyMode = False


End Sub

'--

Comentanos ok? :-)

Saludos
Monica

Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

www.fermu.com

Iñaki escribió:

hola .
Me gustaria saber como puedo paras automaticamente un texto de excel a un
nuevo documento Word.

Gracias.

Anotacion:

Tendras que hacer referencia a la biblioteca

Dependiendo de si tu offices es 2003- 2002 -2000 :

Microsoft word 9.0 para office 2000
Microsoft word 10.0 para office 2002
Microsoft word 11.0 para office 2003
Microsoft word 12.0 para office 2007

Para hacer referencias a estas bibliotecas :

Alt+F11 [de tu excel] y menu herramientas > referencias > y ahi buscas
la correspondiente libreria de tu office, la marcas y aceptas.

Entonces ya podras ejecuatar el codigo [esperemos sin errores :-) ]

Saludos
Monica


Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

www.fermu.com