Delphi+Word

[Samkoff]

Кто подскажет как программно при открытии ворда скрыть все панели инструментов, желательно и главное меню тоже убрать )

[Sibedir]

Вообще по идее должно быть так

  WA := GetActiveOleObject ('Word.Application');
  c := WA.CommandBars.Count;
  for i := 1 to c do begin
    WA.CommandBars.Item [i].Visible := False;
  end;

Но почему-то выдает ошибку, когда доходит до нестандартных (моих) панелей.
А меню, я даже в самом Word'е выключить не смог не то что программно.

P.S.: Word 2003

[Samkoff]

WA типа olevariant ?

[Sibedir]

Ну, да.
____________