Public Sub Replace(SearchFor As String, _
ReplaceWith As String, SearchRTF As RichTextBox) Dim Pos As Integer Pos = 0 While SearchRTF.Find(SearchFor, Pos, _ Len(SearchRTF.TextRTF), rtfNone) <> -1 Pos = SearchRTF.Find(SearchFor, Pos, _ Len(SearchRTF.TextRTF), rtfNone) SearchRTF.SelStart = Pos SearchRTF.SelLength = Len(SearchFor) SearchRTF.SelText = ReplaceWith Pos = Pos + Len(ReplaceWith) Wend End Sub |