Это работает так:
Selection = WordDoc.Application.Selection;
Selection.Find.Text = "Петя";
Selection.Find.ClearFormatting();
Пока Selection.Find.Execute() Цикл;
Selection.Fields.Add(Selection.Range, , "DOCVARIABLE ИмяЧеловека ", Истина);
КонецЦикла;
WordDoc.Fields.Update();
Заменяет всех Петь в тексте на параметр.
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший