Søg og erstat

Hej Th

Prøv med.
Hust Text1 er en Richtekstbox.



Dim Tekst as string
Dim RTekst as string
Dim Start as integer


Tekst = Text1.Text
RTekst = \"End if\"

Start = instr(1,lcase(Tekst),\"endif\")

If Start then
Text1.selstart = start -1
Text1.SelLength = len(RTekst) + 1
Text1.Seltext  = RTekst
Text1.SelColor = vbblue
End if

Prøver...

Jeg har selv fundet ud af det.

mix >> Det virkede ikke, da et ord godt kan stå flere steder i teksten.