Используется «Консоль запросов + Обработчик»:

В запрос нужно вставить текст запроса.

В код нужно вставить алгоритм обработки.

Параметры заполнить как на картинке:

Обычно есть несколько видов с наименованием «Телефон», нужно попробовать все по очереди.

Нажать кнопку «Выполнить», результат запроса выгрузится в таблицу.

Далее нажать кнопку «Выполнить обработку», номера будут обработаны и перезаписаны.

Выдается протокол, где сообщается, какие номера обработаны, какие нет:

Код запроса:

ВЫБРАТЬ

       КонтактнаяИнформация.Объект,

       КонтактнаяИнформация.Тип,

       КонтактнаяИнформация.Вид,

       КонтактнаяИнформация.Представление

ИЗ

       РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация

ГДЕ

       КонтактнаяИнформация.Тип = &Тип

       И КонтактнаяИнформация.Вид = &Вид

       И Подстрока(Представление, 1, 1) <> «»

Код обработки:

ИсхСтр = СокрЛП(Рез.Представление);

РезСтр = «»;

Если ИсхСтр <> «» Тогда

       Для Инд = 1 По СтрДлина(ИсхСтр) Цикл

             Симв = Сред(ИсхСтр, Инд, 1);

             Если Найти(«0123456789», Симв) = 0 Тогда

                    Продолжить;

             КонецЕсли;

             РезСтр = РезСтр + Симв;

       КонецЦикла;

       Если СтрДлина(РезСтр) = 10 Тогда

             РезСтр = «+7» + РезСтр;

       КонецЕсли;

       Если СтрДлина(РезСтр) = 11 И Лев(РезСтр, 1) = «8» ИЛИ Лев(РезСтр, 1) = «7» Тогда

             РезСтр = «+7» + Сред(РезСтр,2);

       КонецЕсли;

       ПредставлениеОбъекта = «» + ТипЗнч(Рез.Объект) + «: » + Рез.Объект;

       Если СтрДлина(РезСтр) <> 12 Тогда

             Сообщить(ПредставлениеОбъекта + » Неадеватный номер: » + ИсхСтр + » Пытались: » + РезСтр);

       ИначеЕсли РезСтр <> ИсхСтр Тогда

             Сообщить(ПредставлениеОбъекта + » Замена: » + ИсхСтр + » На: » + РезСтр);

             МЗ = РегистрыСведений.КонтактнаяИнформация.СоздатьМенеджерЗаписи();

             МЗ.Объект = Рез.Объект; МЗ.Тип = Рез.Тип; МЗ.Вид = Рез.Вид;

             МЗ.Прочитать();

             МЗ.Объект = Рез.Объект; МЗ.Тип = Рез.Тип; МЗ.Вид = Рез.Вид;

             МЗ.Представление = РезСтр;

             МЗ.Записать();

       КонецЕсли;

КонецЕсли;

Конечно, можно было бы эту полезную вещь обернуть в обработку, но некогда, если кто сделает, высылайте мне на почту, вставлю в статью.