vb y word

[hernan_garelli]

hola amigos, en primer lugar quiero decir q gracias a las respuestas de ustedes pude aprobar mi proyecto el año pasado... asi q gracias,
ahora tengo una nueva duda, estoy interesado en exportar unos label, y unas cajas de texto a word, son aproximadamente 10 label y 10 cajas de texto, he buscado tutoriales pero en todos los q encontre me enseñan a exportar una sola cajita y nada mas...
el formato q quisiera tener en word es un titulo central (lo extraigo de un label), y en las lineas siguientes el titulo de un label, y al lado la info de un text box...y en la linea siguiente lo mismo, y asi sucesivamente...
es posible hacerlo?, desde ya muchisimas gracias por su ayuda!
Hernán

pd: o exportar a pdf? ...aunq me interesa mas word...

[Sergestux]

Iniciado por hernan_garelli

... pero en todos los q encontre me enseñan a exportar una sola cajita y nada mas...

Por que no enseñas ese codigo que mencionas

[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