Замена слова в формеНа работе - Ассемблер!

Сделал по циклу поиск и замену

Теперь универсально. В файле обычные строки:

/(.*)(Российской Федерации)(.*)/i
/(.*)(Руси)(.*)/i
/(.*)(Росси.{1}\B)(.*)/i


CREATE list-contents 258 ALLOT
VARIABLE list-file

Action:
MOUSE-MOVE: 378 138
MOUSE-LBCLK
SEND-KEYS: {TAB}{TAB}{TAB}{TAB}
SEND-KEYS: ^{INSERT}

S" E:\1.txt" R/O OPEN-FILE-SHARED THROW list-file !

BEGIN list-contents 1+ 255 list-file @ READ-LINE THROW WHILE
list-contents C!

RE-MATCH: "%CLIPBOARD%" "%list-contents COUNT%"
IF
CLIPBOARD: "%$1%"
SEND-KEYS: +{INSERT}
CLIPBOARD: "РФ"
SEND-KEYS: +{INSERT}
CLIPBOARD: "%$3%"
SEND-KEYS: +{INSERT}
THEN

REPEAT
DROP
list-file @ CLOSE-FILE DROP