envio de informacion

Hola mey

Aquí tienes un ejemplo que abre un documento existente (C:\Documento1.doc) y
escribe en el, el contenido de la celda A1
crea un botón en la hoja llamalo cmdExportarWord añadele el siguiente
código y prueba

Te aconsejo que mires la ayuda de Automatización de Office en
http://support.microsoft.com/defaul...-us;302460

Private Sub cmdExportarWord_Click()
Dim WordApp As Object, _
WordDoc As Object, _
strDoc As String

' ruta del documento word
strDoc = "C:\Documento1.doc"
' creo una instancia a word
Set WordApp = CreateObject("Word.Application")
' abro el documento
Set WordDoc = WordApp.Documents.Open(Filename:=strDoc)

' lo visualizo (o no)
WordApp.Visible = True

' escribo en el libro el contenido de la celda A1
WordApp.Selection.Text = ActiveSheet.Range("A1")

' guardo el documento
WordDoc.Save
' cierro la instancia de word
WordApp.Quit
Set WordApp = Nothing
End Sub ' cmdExportarWord_Click


Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"mey" escribió en el mensaje
news:5d3601c48aa7$755039e0$

hola a todos mi problemas es que deseo enviar la
informacion que se encuentrar en una celda de excel a un
documento word