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

Hola lux, gracias por tu ayuda.

Con mucha frecuencia copiamos y pegamos de Excel a Word. La idea es reducir
el tiempo.Creo haber visto una macro donde sólo seleccionando las celdas,
ésta selección pasaba a la posición del puntero de un documento Word
abierto.

Saludos.





"Tux" escribió en el mensaje
news:

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

José Ángel escribió:

Con mucha frecuencia copiamos y pegamos de Excel a Word. La idea es reducir
el tiempo.Creo haber visto una macro donde sólo seleccionando las celdas,
ésta selección pasaba a la posición del puntero de un documento Word
abierto.

Hola Jose Angel :)

Bien en caso de que existiera ese macro [ a ver si llega alguien y nos
ilumina a todos con el tema del puntero :D ] te encontrarias con un
problema:

Imaginate que estas trabajando con documenots de word y excel y que no
desees en su momento que unas celdas seleccionadas se copien ¿? eso
seria un problema no?

y luego tambien otra cosa si tienes escrito algo en el documento de
word, ¿que lo soltarias asi por las bravas ? pregunto eh? :) , imagino
que tendrias que ponerlo en algun punto del documento no? y hasta la
fecha y hasta donde se, word utiliza marcadores para hacer su pegado y
copiado [ o donde este situado cursor ] y los movimientos del mouse y
eventos de mouse funcionan en formularios.

Puedes realizar eso mismo llevando datos seleccionados de un excel y
arrastrar a un Word , pero te quedaria como un Objeto Ole vinculado ,
dandole luego a deshacer en excel para volver a tener sus datos en su
sitio.

se puede hacer de muchas maneras, todo depende de tus datos y lo que
vayas a realizar:

Documento fijo de word o son documentos diferentes ?

Necesitas vinculaciones de celdas o no te hace falta vincular ?

Copias de las mismas celdas / hojas o celdas / hojas distintas ?

En fin datos faltantes que podrian dar una solucion a tu necesidad,
sobre todo para agilizar tiempo :)

No obstante comentanos ok? :-)

Saludos
Monica




Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com

Hola Tux, muchas gracias por tu interés, pero sólo necesito copiar y pegar
mediante la seleción de celdas.

Gracias y saludos.


"Tux" escribió en el mensaje
news:%

José Ángel escribió:

Con mucha frecuencia copiamos y pegamos de Excel a Word. La idea es
reducir el tiempo.Creo haber visto una macro donde sólo seleccionando las
celdas, ésta selección pasaba a la posición del puntero de un documento
Word abierto.

Hola Jose Angel :)

Bien en caso de que existiera ese macro [ a ver si llega alguien y nos
ilumina a todos con el tema del puntero :D ] te encontrarias con un
problema:

Imaginate que estas trabajando con documenots de word y excel y que no
desees en su momento que unas celdas seleccionadas se copien ¿? eso seria
un problema no?

y luego tambien otra cosa si tienes escrito algo en el documento de word,
¿que lo soltarias asi por las bravas ? pregunto eh? :) , imagino que
tendrias que ponerlo en algun punto del documento no? y hasta la fecha y
hasta donde se, word utiliza marcadores para hacer su pegado y copiado
[ o donde este situado cursor ] y los movimientos del mouse y eventos de
mouse funcionan en formularios.

Puedes realizar eso mismo llevando datos seleccionados de un excel y
arrastrar a un Word , pero te quedaria como un Objeto Ole vinculado ,
dandole luego a deshacer en excel para volver a tener sus datos en su
sitio.

se puede hacer de muchas maneras, todo depende de tus datos y lo que
vayas a realizar:

Documento fijo de word o son documentos diferentes ?

Necesitas vinculaciones de celdas o no te hace falta vincular ?

Copias de las mismas celdas / hojas o celdas / hojas distintas ?

En fin datos faltantes que podrian dar una solucion a tu necesidad, sobre
todo para agilizar tiempo :)

No obstante comentanos ok? :-)

Saludos
Monica




Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com

José Ángel escribió:

Hola Tux, muchas gracias por tu interés, pero sólo necesito copiar y pegar
mediante la seleción de celdas.

Hola Jose Angel :) !!

Pues bien la siguiente macro puedes ponerla en un modulo de excel,
haciendo referencia a la librería que te cito en uno de los post
anteriores, puedes asiginar esta macro a un boton y añadirlo al menu
contextual del raton , lo que hara el codigo es pegar tu Selección de
excel en un documento de word que tengas minimizado en la barra de
tareas, cogera el ultimo libro que hayas activado [ en el caso de que
tuvieras mas de uno ] y lleva un [ On Error Resume Next ] para gestionar
el error en el caso de que no tuvieras ningun libro de word abierto :


'[]

Sub Prueba()

Dim appWd As Word.Application
Dim WordDoc As Word.Document

On Error Resume Next

Set appWd = GetObject(, "Word.Application")
Selection.Copy

With appWd

.Activate
.WindowState = wdWindowStateMaximize
.Selection.Paste

End With

Application.CutCopyMode = False

Set appWd = Nothing

End Sub

'[]

La pruebas y nos comentas si cualquier duda [ mas ] adicional ok? :)

Saludos
Monica





Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com