Ворд = Новый COMОбъект("Word.Application");
Документ = Ворд.Documents.Add(ФайлШаблонаДоговора);    

Файнд = Документ.Content.Find;
Файнд.MatchWildCards = Истина;
ТекстНайден = Файнд.Execute("%*%");
    
Ворд.Quit();
Ворд = Неопределено;

Собстевнно, сабж. Нужно получить найденные фрагменты текста, не могу допетрить, как это сделать. В поиск ходил, объектную модель смотрел, руки выпрямлял. Не помогает.

Нашел.
Документ.StoryRanges[0].Text
Всем спасибо :)

Файнд = Документ.Content.Find;
Файнд.ClearFormatting();
Файнд.MatchWildCards = Истина;
Файнд.Text = "%*%";
Файнд.Execute();
                
Пока Файнд.Found Цикл
    НайденныйТекст = СтрЗаменить(Файнд.Parent.Text, "%", "");
    Файнд.Execute();
                    
    Если НЕ Массив.Найти(НайденныйТекст) = Неопределено   Тогда
                
        Продолжить;
                
    КонецЕсли;
                
Массив.Добавить(НайденныйТекст);
        
КонецЦикла;

Так еще лучше

молодец