Hola David!
Soy una latosa de lo peor!! Pero el código que me hiciste favor de pasar no he podido ejecutarlo, se queda pasmado..... no hace nada!!
Me ayudas?
Gracias!
Cita:
Iniciado por David el Grande 
Puedes hacerlo así:
Código:
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")
Código:
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