|
-
Feb 17th, 2009, 12:48 PM
#1
Thread Starter
PowerPoster
 [RESOLVED] Find the second occurance of string rtf
Dim TextToFind as string
TextToFind = "Start to day"
With rtb
.SelStart = .Find(Texttofind)' Change to the word to find
.SelLength = Len(TextToFind)
MsgBox .SelText
text1 = .Seltext
.SelText = "" 'delete the text ?
End With
This works fine for finding the first string, but i'm trying to delete the 2nd occurance. How?
Waiting for a full featured smart phone with out marrying a provider
Go Android 
Go raiders 
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|
Reply With Quote