Visual Basic - Enviar datos a Word

Life is soft - evento anual de software empresarial
 
Vista:

Enviar datos a Word

Publicado por Ginés (14 intervenciones) el 06/02/2002 12:23:33
Hola, tengo una aplicacion en VB 6.0 sobre base de datos Acces y necesito saber como puedo enviar datos desde Visual Basic a Word. Gracias de antemano.
Un saludo.
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 Word

Publicado por santi (3 intervenciones) el 08/02/2002 19:57:25
te creas un boton y pegas esto


Private Sub Command1_Click()
Dim objWord As New Word.Application
'Muestra el Word
'Si no quieres que se vea sustituye True por False
objWord.Visible = True
'Añade un nuevo documento
objWord.Documents.Add
'Añade texto al documento
objWord.Selection.TypeText "Estamos en"
objWord.Selection.TypeText " http://ocioestudio.fiestras.com"
'Selecciona todo el texto
'objWord.Selection.WholeStory
'Cambia el tamaño del texto
'objWord.Selection.Font.Size = 50
'Cambia el color del texto de la seleccion
'objWord.Selection.Font.Color = wdColorRed
'La siguiente linea pregunta al usuario para salvar el documento
'objWord.Documents.Save
'Esta linea es si queremos imprimir el documento
'objWord.PrintOut
Set objWord = Nothing
End Sub

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 Word

Publicado por santi (3 intervenciones) el 08/02/2002 19:58:57
te creas un boton y pegas esto


Private Sub Command1_Click()
Dim objWord As New Word.Application
'Muestra el Word
'Si no quieres que se vea sustituye True por False
objWord.Visible = True
'Añade un nuevo documento
objWord.Documents.Add
'Añade texto al documento
objWord.Selection.TypeText "Estamos en"
objWord.Selection.TypeText " textotextotexto"
'Selecciona todo el texto
'objWord.Selection.WholeStory
'Cambia el tamaño del texto
'objWord.Selection.Font.Size = 50
'Cambia el color del texto de la seleccion
'objWord.Selection.Font.Color = wdColorRed
'La siguiente linea pregunta al usuario para salvar el documento
'objWord.Documents.Save
'Esta linea es si queremos imprimir el documento
'objWord.PrintOut
Set objWord = Nothing
End Sub

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