sidao_40

estou com problema, gostaria que meu codigo desse quebra de linha apos uma quantidade de frases não na quantidade de caractres pois ele quebra a palavra no meio Dim Texto As String Dim Limite As Integer Dim Linha As Integer Dim Final As Integer Dim TextoPronto As String Dim Texto As String Dim I As Integer Texto = txtObs.Text Limite = 30 Final = Len(Texto) Mod Limite Linha = (Len(Texto) - Final) For I = 1 To Linha Step Limite objPDF.PDFTextOut "", 20 objPDF.PDFTextOut Mid(Texto, I, Limite) & vbNewLine Next I If Final > 0 Then objPDF.PDFTextOut "", 20 objPDF.PDFTextOut Right (Texto, Final) 'End If