excell to word???

[priska]

Hola David,

He estado intentando ejecutar el siguiente código

Sub wordappli()
Dim apliword As Object
Set apliword = CreateObject("word.application")

Dim wordApp As Object
Dim wordDoc As Object
Set wordApp = CreateObject("Word.Application")
Set wordDoc = wordApp.documents.Add

wordApp.Visible = True

WordPaste wordApp, Worksheets("Cat1").Range("cat1")
WordPaste wordApp, Worksheets("Cat2").Range("cat2")
WordPaste wordApp, Worksheets("Cat3").Range("cat3")
Application.Selection.Copy

wordApp.Visible = True
wordApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement:=wdInLine, DisplayAsIcon:=False

apliword.Quit
End Sub

Sin embargo, me marca error ya que dice que no se ha definido un sub o función (para el renglón en donde empieza WordPaste) , este es el primer código que me mencionaste que podría servirme, abajo de éste pusiste otro que es:

Sub WordPaste(WordObject As Object, myRange As Range)
myRange.Select
Application.Selection.Copy
WordObject.Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement:=wdInLine, DisplayAsIcon:=False
End Sub

No tengo mucha idea de cómo utilizar este último código. Asi mismo te comento que los rangos cat1, cat2, ....... etc. son rangos que yo nombré de esa manera y cada uno de ellos se encuentra en distintas hojas de un mismo libro de excel. Ya logré copiar y pegar uno de esos rangos pero no he conseguido que me copie y pegue todos los demás, la idea es que todos los rangos queden en un mismo documento de word.

Espero me puedas ayudar, plis!

Muchas gracias por tu atención.