[Kailon]

Как-то так...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  FName, OldText, NewText, CntFind, CntReplace: OleVariant;
begin
  FName := 'D:\MyDoc.dotx';
  OldText := '#Name#'; //текст который ищем
  NewText := 'Иванов Иван Иванович'; //текст на который меняем
  CntFind := wdFindContinue; //ищем до конца документа
  CntReplace := wdReplaceAll;//меняем каждый раз
  with WordApp do
    begin
      Documents.Add(FName, EmptyParam, EmptyParam, EmptyParam);
      Selection.Find.Execute(OldText, EmptyParam, EmptyParam, EmptyParam,
                             EmptyParam, EmptyParam, EmptyParam, CntFind,
                             EmptyParam, NewText, CntReplace, EmptyParam,
                             EmptyParam, EmptyParam, EmptyParam);
      Visible := True;
    end;
end;