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.

JUAN CARLOS wrote:

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


Gracias.

http://msdn.microsoft.com/library/S...erview.asp

Gracias Pablo me fue de mucha utilidad, pero sabes que tengo un problema no
funciona el salto de linea, los datos en Word aparecen en una sola linea.
Sabes que puede estar pasando.???

"Pablo A Castillo" escribió:

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.