Jag använder koden:
Private Sub cmdColorChanger_Click()
Dim lStart As Long, sOrdet As String, cColor As ColorConstants
lStart = 0
sOrdet = PrintText 'det är en variabel som ändras så att flera ord markeras
cColor = ******* ' vbBlue kommer inte ihåg numret
Do
rtbText.Find sOrdet, lStart, Len(rtbText.Text)
rtbText.SelColor = cColor
If rtbText.SelStart + rtbText.SelLength = lStart Then Exit Do
lStart = rtbText.SelStart + rtbText.SelLength
Loop
rtbText.SelStart = 0
End Sub
Det går första gången jag trycker på cmdColorChanger.. men om jag ändrar datan i rtb:en så färgas allting blått. sen spelar det ingen roll om jag trycker på knappen igen allting är fortfarande blått.. Hur kan jag ändra detta??
/Martinsson
PS.Koden kommer från pellesoft .DS

Vad jag ser i koden är att oden som matchar PrintText färgas blått, men ändras inte tillbaka vid nästa sökning. Om du inte har några andra färger så kan du markera allt och sätt färgen tillbaka till svart innan en ny sökning.