在 RichTextBox 中，能不能对里面的文本的某一段定义颜色？

Question

如：RichTextBox 中，有一段文字为：
   AAAAAABBBBBBBBBCCCCCCCCCCCDDDDDDDDD有没办法将ABCD用四种不同的颜色显示出来？

Answer 1

先选取一段字符然后
Selection.Font.Color = wdColorRed

Answer 2

Dim A, B
Do While Not A = -1
  A = R.Find("A", B, Len(R.Text))
 If A <> -1 Then
  R.SelStart = A
  R.SelLength = 1
  R.SelColor = vbRed
 End If
  B = B + 1
  DoEvents
Loop
MsgBox "Done"

Answer 3

Private Sub Form_Load()
    RichTextBox1.Text = "askldjalksdjlaks"
    RichTextBox1.SelStart = 5
    RichTextBox1.SelLength = 4
    RichTextBox1.SelColor = vbRed
    RichTextBox1.SelStart = 0
End Sub

Answer 4

我得将文本中所有为连续三个数字的文本段颜色进行变化。比如文本：
aaaaaaaaaaaaaaaaa2324bbbbbbbadfafddasfa8998afdsdasfdfasdafsdsfaa01dfsfdfd897应该将2324,8998,897 的颜色变化，能做到吗？

Answer 5

先选取一段字符然后
Selection.Font.Color = wdColorRed
 同意 。