Selecting one word at a time in RichText

How do I select one word at a time in a RichText box using a command button. In other words; each time I press the command button, the next word in the RichText box will automatically be highlighted.
mcdonald_gAsked:
Who is Participating?
 
SLEConnect With a Mentor Commented:
Assuming you've got a RTF box rtfTest and a button cmdNext and that all words are separated by a space, this should help you on the way:

Private Sub cmdNext_Click()
    Static nPrevPos As Long
    Dim nPos As Long
   
    nPos = rtfTest.Find(Space(1), nPrevPos)
   
    If nPos <> -1 Then
        rtfTest.SelStart = nPrevPos
        rtfTest.SelLength = nPos - nPrevPos
        rtfTest.SetFocus
       
        nPrevPos = nPos + 1
    End If
End Sub
0
 
mcdonald_gAuthor Commented:
Edited text of question.
0
 
mcdonald_gAuthor Commented:
It works great!!

Thanks
0
All Courses

From novice to tech pro — start learning today.