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