Visual Basic - Escribir en Word desde VB6

Life is soft - evento anual de software empresarial
 
Vista:

Escribir en Word desde VB6

Publicado por FER (26 intervenciones) el 11/02/2005 08:18:20
Necesito pasar los contenidos de las cajas de texto de un formulario de entrada de datos de VB6 a una hoja de Word en las posiciones y formatos que y oestablezca.

Muchas gracias por adelantado
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:Escribir en Word desde VB6

Publicado por Mauricio (53 intervenciones) el 11/02/2005 13:32:47

Puedes usar la referencia Microsoft Word Object Library. Por ejemplo

Private W As New Word.Application
private sub Command1_Click()
W.Visible = True ' Abre el Word
W.Documents.Add DocumentType:=wdNewBlankDocument ' Agrega un nuevo documento
W.Selection.TypeText Text:="Esto es una prueba"
end sub
Private Sub Command2_Click()
W.Quit ' termina el word
End Sub

Para ver como manejar mejor la referencia te recomiendo que vayas grabando macros desde word y los traspases a VB
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:Escribir en Word desde VB6

Publicado por Gustavo (181 intervenciones) el 11/02/2005 23:05:27
'antes de nada tienes q hacer la referencia a word
'esto es en menu proyecto/referencias/microsoft word 9.0 object library
'ya hecho esto declara
Public ApWord As Word.Application

Private Sub Command1_Click()
Set ApWord = CreateObject("Word.Application")
'decimos q apword es una aplicacion
ApWord.Documents.Add
'agregamos un documento en blanco
With ApWord.Selection
.Font.Bold = True 'negritas
.Font.Size = 20 'tamaño
.TypeText Text1 'incertar el contenido de la caja de texto
.TypeParagraph 'salto de linea
.Font.Size = 10
.Font.Italic = True 'cursiva
.TypeText Text2
End With
ApWord.Visible = True
End Sub

Private Sub Form_Load()
Command1.Caption = "&Pasar caja de texto a Word"
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