ayuda enviar datos a word

[josemer]

quisiera una ayuda para saber como puedo enviar ciertos datos desde visual a un documento de word.
Gracias

[karmany]

Mira, para que vayas aprendiendo un poco te dejo un código que tengo guardado que lo que hace es abrir un nuevo documento de word y escribe "Título" y "el texto que quieras".
Intenta por tu cuenta analizarlo y entenderlo que no es nada complicado. Yo con este ejemplo es con el que aprendí:

Código [Seleccionar] Expandir

Private Sub Form_Load()
    Dim ObjWord As Object
    Dim DocdeWord As Object
    Dim ruta As String
    On Error Resume Next
    Set ObjWord = GetObject(, "word.Application")
        If Err.Number = 429 Then
            Err.Clear
            Set ObjWord = CreateObject("word.Application")
        End If
   ruta = App.Path & "\test1.doc"
   Set DocdeWord = ObjWord.Documents.Open(ruta, ReadOnly = True)
   ObjWord.Visible = True
   ObjWord.CommandBars.DisplayTooltips = False
   ObjWord.Selection.paragraghformat.Alignment = wdAlignParagraphCenter
   ObjWord.Selection.Font.Size = 20
   ObjWord.Selection.TypeText "Título"
   ObjWord.Selection.TypeParagraph
   ObjWord.Selection.TypeParagraph
   ObjWord.Selection.Font.Size = 12
   ObjWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
   ObjWord.Selection.TypeText "El texto que quieras, josemer"
   ObjWord = Nothing
   DocdeWord = Nothing
End Sub