Сделал по циклу поиск и замену
Теперь универсально. В файле обычные строки:
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
/(.*)(Российской Федерации)(.*)/i
/(.*)(Руси)(.*)/i
/(.*)(Росси.{1}\B)(.*)/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