DeExcelAWord, Copy and Paste

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