RE:Escribir en Word desde VB6
'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