Macros inter Office

03/06/2009 - 17:19 por Lord Rogers | Informe spam
Estimados:

Tengo Office 2007 y mi intención es poder realizar una macro en Excel
que copie cierto rango de celdas (dads y fijas) y las vaya colocando en un
documento word.

¿Es posible realizar ese proceso?

El word es nuevo cada vez que se ejecuta, lo del nombre de ese documento no
es de importancia, ya que queda abierto hasta que el usuario lo cierra.

Millón de gracias por las ayudas

Saludos

Lord Rogers
Desde el último lugar del mundo
 

Leer las respuestas

#1 Abraham
03/06/2009 - 18:26 | Informe spam
un modo:

Sub Enviaraword()
Dim apliword As Object
Set apliword = CreateObject("word.application")
With apliword
.documents.Add
.Visible = True
Worksheets("hoja2").[a1:a6].Copy
.Selection.typeparagraph
.Selection.pasteexceltable linkedtoexcel:=False,
wordformatting:=False, RTF:=False
.activedocument.SaveAs ("c:\Miarchivodeword.doc")
End With

End Sub

Abraham

Preguntas similares