编程实现选中文字，如何实现?
像下面这样，图中“多次”二字被选中：

从第一个字符开始循环到倒数第二个，每次2字节组词判断是否是“多次”字样...

判断没有用，关键是如何选中它。

选中的下一步干嘛？复制？

用TextBox的SelStart和SelLength属性就可以了

曾经有一项目，好似有点类似吧，
Private Sub RichTextBox1_Change(Index As Integer)
 Dim Mun字数 As Integer
  Mun字数 = Len(Trim$(Text2.Text))
If Mun字数 >= 1 Then
 If Index = 3 And RichTextBox1(3) <> "" Then
   RichTextBox1(3).SelStart = 0
   RichTextBox1(3).SelLength = (Len(Trim$(RichTextBox1(3).Text)))
   RichTextBox1(3).SelColor = vbBlack
     For i = 1 To (Len(Trim$(RichTextBox1(3).Text)) - Mun字数)
       If Text2 = Mid(Trim$(RichTextBox1(3).Text), i, Mun字数) Then
          RichTextBox1(3).SelStart = i - 1
          RichTextBox1(3).SelLength = Mun字数
          RichTextBox1(3).SelColor = vbRed
       End If
     Next i
 End If
End If

这个可以。