OLA
EU NÃO SEI SE ISTO PODE TEAJUDAR MAIS TENTE AI
VOCE DEVE CRIA UMA PAGINA DE WORD E SALVAR ELE EM BRACO
Private Sub TXTGERA_Click()
Dim objword As Object
Set objword = CreateObject("word.basic")
objword.filenew "normal", 0
Dim Word As New Word.Application
With Word
.Documents.Open "C:ROTEIRO.DOC"
.Visible = True
objword.Bold
objword.FontSize 11
objword.Font "ARIAL"
objword.Insert "" + Chr(13) + Chr(10)
objword.appmaximize "", 1
objword.Bold
objword.FontSize 12
objword.Font "ARIAL"
objword.Insert CStr(TXTDATA.Text)
objword.Insert "" + Chr(13) + Chr(10)
objword.Insert "" + Chr(13) + Chr(10)
objword.Insert "" + Chr(13) + Chr(10)
objword.Insert "" + Chr(13) + Chr(10)
Set Word = Nothing
End With
End Sub
conexaocomvoce@hotmail
