GENERAR

07/06/2007 - 16:55 por Claudio | Informe spam
como generar un documento word desde y con datos de una hoja Excel
 

Leer las respuestas

#1 KL
07/06/2007 - 19:16 | Informe spam
Hola Claudio,

"Claudio" wrote in message news:
como generar un documento word desde y con datos de una hoja Excel



Empieza por revisar el siguiente vinculo:

http://peltiertech.com/Excel/XL_PPT.html

Transformando uno de los codigos de John Peltier...

'
' Antes de usar, crear referencia a la libreria de objetos Microsoft Word
' desde el Editor VBA menu Herramientas>Referencias...
Sub RangeToDocument()
' Set a VBE reference to Microsoft Word Object Library

Dim WDApp As Word.Application
Dim WDDoc As Word.Document

' Make sure a range is selected
If Not TypeName(Selection) = "Range" Then
MsgBox "Please select a worksheet range and try again.", vbExclamation, _
"No Range Selected"
Else
' Reference existing instance of Word
Set WDApp = CreateObject("Word.Application")
' Reference active document
Set WDDoc = WDApp.Documents.Add
' Reference active slide

' Copy the range
Selection.Copy

' Paste the range
WDApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF, _
Placement:=wdInLine, DisplayAsIcon:=False

WDDoc.SaveAs "C:\test.doc"
' Clean up
WDDoc.Close True
Set WDDoc = Nothing
WDApp.Quit
Set WDApp = Nothing
End If
End Sub
'

Saludos,
KL

Preguntas similares