Datos a Word

Hola es facil!!

primero agrega la refencia COM de microsoft word a tu proyecto en la opcion
"Add Refences" en la ventana de tu explorador de proyecto.

luego ingresas esto en tu code:

Imports Microsoft.Office.Interop.Word

luego pegas un code similar a este:

If TextBox3.Text = "" Then
MsgBox("No se puede Imprimir el Formato, no tiene nombre de
cliente", MsgBoxStyle.Information, "SRB")
Else
Dim fecha As DateTime = DateTime.Now.ToShortDateString()
Dim fechas As DateTime = fecha.ToShortDateString()
Dim ObjDoc As Microsoft.Office.Interop.Word.Document
Dim ObjDoc1 As Microsoft.Office.Interop.Word.Bookmark
Dim ObjWord As New Microsoft.Office.Interop.Word.Application
Dim Va As String
Dim Va1 As String = "c:\Backup "
Dim Va2 As String = ".doc"
Dim Va3 As String
Dim Va4 As String
ObjWord.Visible = True
'bien hasta aqui
ObjDoc = ObjWord.Documents.Add("C:\sistema\fb.dot")
ObjDoc.Bookmarks("CODIGOCLIENTE").Range.Text = TextBox6.Text
ObjDoc.Bookmarks("NOMBRECLIENTE").Range.Text = TextBox3.Text
ObjDoc.Bookmarks("GERENTE").Range.Text = TextBox5.Text
ObjDoc.Bookmarks("NUMEROCONTRATO").Range.Text = TextBox7.Text
ObjDoc.Bookmarks("DESCRIPCION").Range.Text = TextBox8.Text
ObjDoc.Bookmarks("FECHA").Range.Text = fechas
ObjDoc.Bookmarks("SOCIO").Range.Text = TextBox4.Text
'ObjDoc.Activate()
'Va = Label5.Text
Va3 = Va1 & Va ' Concateno las cadenas para que cuando guarde
tambien tome
Va4 = Va3 & Va2 ' el numero del proyecto
ObjDoc.SaveAs(Va4)
End If

observa que dice BOOKMARK eso quiere decir que en tu archivo .DOT <-- con T
de template. debes declarar bookmarks osea marcadores que es donde tu
programa de visual Basic te posicionara y pegará el code.

ve en el word en la opcion "insertar" y crea un bookmark.

funciona 100%

saludos

Pablo A Castillo.


"JUAN CARLOS" wrote:

Hola,
Alguien me puede ayudar, estoy tratando de enviar datos hacia un documento
de Word
Sabe alguien como hacerlo????????'


Gracias.