DeExcelAWord, Copy and Paste

José Ángel escribió:

Quiero realizar un copy&paste desde Excel hasta el documento Word que tenga
abierto: seleccionando las celdas que quiero copiar y al soltar el mouse que
se copie en word. ¿Es posible mediante VBA?.

Hola Jose Angel :)

Hombre :-)) y no te seria mejor crear un codigo o una macro que te
realizara todo a la vez ? por ejemplo el siguiente codigo te abre un
documento de word y pega en el documento de word el rango A1:a20 de la
hoja1, con posibilidad de modificar el codigo según cual sea tu necesidad :


'[]

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

'[]

Haciendo referencia a la librería si usas office 2003 :

Microsoft word 11.0 para office 2003

Comentanos la necesida y demas de el [ porque ]querer soltar el mouse
en word ? ya que si tienes los dos libros abiertos el proceso es lo
mismo que si copias y pegas. Digo yo eh? no sep :-? y si lo que
necesitas es pegar datos que varian, mediante un inputbox podriamos
hacerlo :)

Comentanos ok ? :)

SAludos
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com