19/09/2007, 12:45
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Lima, Peru
Mensajes: 708
Antigüedad: 19 años, 3 meses Puntos: 18 | |
| Re: excell to word???
Un ejemplo, eso si, si no tienes nocion de VBA, pues no si si podras entender:
Sub wordappli()
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:\transferencia.doc")
End With
apliword.Quit
End Sub
Abraham |