Может через замену как то так
Fnd=Ворд.ActiveDocument.Range().Find;
Fnd.ClearFormatting();
Fnd.Forward=1;
Fnd.Execute("*Номер*",,,,,,,,,НомерДок,2);
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс