 PutKey($8400) rem Ctrl+PgUp
loop:
 if find("[0-9]+ \\-","c-f+w-r+s-") <> 1 then GoTo L1
 if find("-","c-f+w-r-s-") <> 1 then GoTo L1
 PutStr("^D^M") rem Right Enter
GoTo Loop
L1:
 PutKey($8400) rem Ctrl+PgUp
loop4:  rem Удаление ведущих пробелов перед строками с маленькой буквы
 if find("^ +[а-я]","c+f+w-r+s-") <> 1 then GoTo L4
 if find("[а-я]","c+f+w-r+s-") <> 1 then GoTo L4
 if WhereX() > 1 then PutKey($0E7F) rem Ctrl+Back
GoTo Loop4
L4:

