Caro fórum,

 

Tenho um texto em um rich text;

Preciso ler todo esse texto, carácter por carácter e;

Quando iniciar uma palavra em itálico ou negrito ou sublinhado tenho que armazenar essa posição.

 

Grato,

 

 

 

Dim m_pos() As Integer
Dim i As Integer, j As Integer
Dim m_curr_Pos As Long
Dim iBold_true As Boolean

j = Len(RichTextBox1.TextRTF)
For i = 1 To j
    RichTextBox1.SelStart = i
    RichTextBox1.SelLength = 1
    If (RichTextBox1.SelBold = True) And (Not (iBold_true)) Then    'encontra inicio bold
        iBold_true = True
       
        ReDim Preserve m_pos(m_curr_Pos) As Integer
       
        m_pos(m_curr_Pos) = i
        m_curr_Pos = UBound(m_pos) + 1
    ElseIf Not (RichTextBox1.SelBold) And iBold_true Then   'primeiro caracter não bold
        iBold_true = False
    End If
Next i

Ama,

 

blz, era o que eu procurava.

 

Grato,