vb y word

[hernan_garelli]

Hola, Me ayudaron tanto en este foro que hoy aca muestro como lo resolvi:

Private Sub Command1_Click()
Dim Word As New Word.Application

'AGREGA DOCUMENTO
Word.Documents.Add

Dim X As Integer

'AGREGA TEXTO
Word.Selection.Font.Color = wdColorBlack
Word.Selection.WholeStory
Word.Selection.Font.Size = 15
Word.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Word.Selection.Font.Underline = wdUnderlineSingle
Word.Selection.TypeText Label5.Caption & vbCrLf
Word.Selection.TypeText Label6.Caption & vbCrLf
Word.Selection.TypeText "" & vbCrLf
Word.Selection.Font.Size = 14
Word.Selection.Font.Underline = wdUnderlineNone
Word.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Word.Selection.TypeText Label7.Caption & " " & Label8.Caption & vbCrLf
Word.Selection.TypeText "" & vbCrLf
Word.Selection.TypeText Label1.Caption & " " & Label3.Caption & vbCrLf
Word.Selection.TypeText "" & vbCrLf

Word.Selection.TypeText Frame2.Caption & " " & Text2.Text & vbCrLf
Word.Selection.TypeText "" & vbCrLf

Word.Selection.TypeText Label2.Caption & " " & Label4.Caption & vbCrLf
Word.Selection.TypeText "" & vbCrLf

Word.Selection.TypeText Frame1.Caption & " " & Text1.Text & vbCrLf

Word.Selection.TypeText "" & vbCrLf




'AGREGA PARRAFO
Word.Selection.TypeParagraph


'SELECCIONA TEXTO
' Word.Selection.WholeStory
'Word.Selection.Font.Size = 14
'Word.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter


' VISIBLE
Word.Visible = True

Set Word = Nothing
End Sub

SALUDOS AMIGOS