The Method Finder Works very nice, but only in text without the #13 code (Return), but I need erase all text or image or bullets or cells between two marks.
Many thanks by so quick answer...
André
The Method Finder Works very nice, but only in text without the #13 code (Return), but I need erase all text or image or bullets or cells between two marks.
Many thanks by so quick answer...
André
Please read here
http://wpcubed.com/forum/viewtopic.php?t=143
Thank`s very much !!
This work fine...
var sSearchString:String;
nStart, nEnde : Integer;
sSearchString:= '@mymark@';
Finder.ToStart;
While Finder.Next(sSearchString) do
begin
CPPosition:= Finder.FoundPosition;
if nStart < 0 then
nStart := CPPosition + 1
else
begin
nEnde := CPPosition;
SetSelPosLen(nStart-1, (nEnde - nStart) + Length(sSearchString)+1);
SelectionAsString:=' ';
nStart := -1;
end;
end;
Refresh;
Alles anzeigen
Regards
André