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.
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
        nPrevPos = nPos + 1
    End If
End Sub
mcdonald_gAuthor Commented:
Edited text of question.
mcdonald_gAuthor Commented:
It works great!!

All Courses

From novice to tech pro — start learning today.