Вопрос снят
//*********************************************************
ТекДок.Application.Selection.Find.Text = "[П1]";
ТекДок.Application.Selection.Find.Execute();
Text = ТекДок.Application.Selection();
Если Объект.Больше10 Тогда
Text.Font.Underline = 1;
КонецЕсли;
ТекДок.Content.Find.Execute("[П1]", , , , , , , , , ">10");
//*********************************************************
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший