Visual Basic - ENVIAR DATOS A DOCUMENTO WORD ( ES URGENTE )

Life is soft - evento anual de software empresarial
 
Vista:

ENVIAR DATOS A DOCUMENTO WORD ( ES URGENTE )

Publicado por DAVID MORENO (34 intervenciones) el 09/06/2004 16:13:17
Hola a todos/as.
Necesito saber como puedo insertar datos a un campo DATABASE del word , el documento ya lo tengo creado y los valores ya los recupero de una base de datos ahora me falta insertarle los datos al word.
Ejemplo.
Estimado <campo_database>
Aqui va un texto del documento y aqui otro campo <campo_database>
aqui pongo mas texto y otro campo <campo_database>
Los datos que tengo que inertar tienen que ir salteados , si hay otra manera para hacerlo y es mas sencilla tambien me vale.

Gracias por la ayuda.
Por favor explicar un poco el codigo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ENVIAR DATOS A DOCUMENTO WORD ( ES URGENTE )

Publicado por David Medina (88 intervenciones) el 09/06/2004 16:54:27
Lo mejor es que entres a la página www.microsoft.com en la parte superior derecha encuentras una barra de búsqueda.. digitas
VB 6.0 Word

en los resultados esta todo el código que debes adicionar a tu aplicación para que trabaje con Microsoft Office... y sin problemas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ENVIAR DATOS A DOCUMENTO WORD ( ES URGENTE )

Publicado por Cecilia Colalongo (3116 intervenciones) el 09/06/2004 20:41:31
Fijate con ésto, primero agrega la referencia a Word a tu proyecto:

Dim objWord As Word.Application, objField As Word.FormField

Set objWord = New Word.Application

objWord.Documents.Open App.Path & "\PruebaForm.doc"

Set objField = objWord.ActiveDocument.FormFields.Item("Text1")
objField.Result = "Hola, hoy es " & Now

Set objField = objWord.ActiveDocument.FormFields.Item("Check1")
objField.CheckBox.Value = True

Set objField = objWord.ActiveDocument.FormFields.Item("DropDown1")
objField.DropDown.Value = 2

objWord.Visible = True
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar