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