Mandar Datos de Vb6 a Word

Te envío el ejemplo.
No olvides valorar la respuesta.

Hola.
Me podrías mandau un ejemplo al correo por favor.
Gracias de corazón

Pues lo que pides se hace con el objeto Word. Application, de hecho, con este objeto se puede acceder a todas las funcionalidades de Word. Te pongo un ejemplo de un listado sacado a partir de RDO:
Private Sub Listado_Click()
Dim Word As Word.Application
Dim lstrSQL As String
Dim lobjRSRegistros As rdoResultset
On Error GoTo GestionError
MousePointer = vbHourglass
lstrSQL = "SELECT campo1, campo2 FROM TABLA"
Set lobjRSRegistros = gobjCN.OpenResultset(lstrSQL, rdOpenStatic)
' Comenzamos a rellenar los campos de la plantilla Word
Set Word = CreateObject("Word.Application")
On Error GoTo GestionError2
Word.Documents.Add Template:=App.Path & "\plantilla.dot", newtemplate:=False
'Word.Visible = True
'Word.Application.WindowState = wdWindowStateMaximize
While Not lobjRSRegistros.EOF
Word.Selection.TypeText lobjRSRegistros!campo1 & ", " & lobjRSRegistros!campo1 & vbCrLf
lobjRSRegistros.MoveNext
Wend
If MsgBox("Pulse 'Si' para imprimir el listado directamente o 'No' para enviar el listado a MS Word", vbYesNo Or vbQuestion, "Imprimir listado") = vbYes Then
Word.ActiveDocument.PrintOut Background:=False
Word.ActiveDocument.Close savechanges:=wdDoNotSaveChanges
Word.Quit
On Error GoTo GestionError
Else
Word.Visible = True
Word.Application.WindowState = wdWindowStateMaximize
End If
MousePointer = vbDefault
lobjRSRegistros.Close
Set lobjRSRegistros = Nothing
Exit Sub
GestionError2:
Word.ActiveDocument.Close savechanges:=wdDoNotSaveChanges
Word.Quit
GestionError:
'ErrorEstandar lstrSQL
MousePointer = vbDefault
End Sub
No olvides valorar la respuesta.

Hola.
¿Pero hay que agregar algún componente nuevo o algo? ¿Si copio el código directamente funcionara? ¿Me podrías manda un ejemplo hecho?
mi email es [email protected]
Gracias

Deberás añadir en tu proyecto la referencia a "Microsoft Office X.X Object Library".
El código es solo un ejemplo. Funcionará si haces la conexión a la base de datos mediante RDO, tienes una tabla llamada TABLA, con campos CAMPO1 y CAMPO2, una plantilla de word "plantilla.dot" ... vamos que le eches un vistazo y lo adaptes a tus necesidades.