Community

При обычной замене связь символа с изображением теряется (происходит это из-за обращения к свойству Text блока).
Данный скрипт позволяет этого избежать, благодаря использованию свойства Symbol (строка представляет собой коллекцию Symbols). Скрипт необходимо писать именно как скриптовое правило. В скрипте автокоррекции то же самое не работает… Приведенный пример писался для формы, заполняемой вручную. Форма не отвечала требованиям машиночитаемости. В результате ее заполнения вместо символов "0" распознавалась только какая-то его часть из-за обрезания символа с разных сторон, или буква "О". При сохранении связи с изображением после такой автозамены сохраняется возможность использовать режимы верификации.

Dim i, j, vChar, vZero, vPlus

vZero = "CcСсUuOoОо"
vPlus = "#"

for i = 0 to me.Symbols.Count - 1
    vChar = me.Symbols( i ).Symbol
    for j = 1 to Len(vZero)
        if vChar = Mid (vZero, j, 1) then
            me.Symbols( i ).Symbol = "0"
        end if
    next
    
    for j = 1 to Len (vPlus)
        if vChar = Mid (vPlus, j, 1) then
            me.Symbols( i ).Symbol = "+"
        end if
    next
next