Открытие файлов MS Worl в Delphi

[Vladya]

Необходимо открыть файл Word в приложении для предпросмотра, для этого использую код:

procedure TForm1.Button1Click(Sender: TObject);
Var z: OleVariant;
    i: Integer;
Begin
  OleContainer1.CreateObject('Word.Application',False);
  OleContainer1.CreateObjectFromFile(ExtractFilePath(Application.ExeName)+'123.doc',false);
  OleContainer1.DoVerb(ovShow);
  z:= 2;
    for i:=1 to OleContainer1.OleObject.CommandBars.Count do
      if OleContainer1.OleObject.CommandBars.Item[i].Visible then
         OleContainer1.OleObject.CommandBars.Item[i].Visible:=False;
  OleContainer1.OleObject.Protect(z);
end;

НО!
1. При открытии файла видны все панельки, линейки и т.д. Как их скрыть? Цикл который должен их скрывать ничего не делает...
2. Если открывать файл с расширением *.docx то ворд начинает выбивать ошибки а потом открывает документ...
3. Последнее, почему следующая строчка не хочет убивать ворд из процессов?

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 OleContainer1.DestroyObject;
end;

Если кто в курсе как исправить эти ошибки подскажите пожалуйста.

[Stilet]

Нескромный вопрос: Просмотр обязательно нужен в окне программы? Когда у меня была такая задача (просмотр конструкторских спецификаций) я просто подключался к ворду через COM сервер микрософта, открывал и сразу ставил пароль на редактирование (ну или открывал readonly).
Т.е. не вижу смысла использовать OleContainer

почему следующая строчка не хочет убивать ворд из процессов?

Потому что она закрывает не процесс ворда, а интерфейс к нему. Процесс придется закрывать отдельно.

[Iron Monk]

uses ComObj;

var
WordApp: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
begin
   WordApp:= CreateOleObject('Word.Application');
   WordApp.documents.Open('c:\Word.docx');
   WordApp.ActiveWindow.View.FullScreen:= true;
   Form1.RecreateWnd;
end;
end.

[Vladya]

Сообщение от Stilet

Нескромный вопрос: Просмотр обязательно нужен в окне программы?

Суть именно этого пункта программы: в программе хранятся документы, список которых отображается в лист боксе, при нажатии на определенный пункт в списке, открывается предпросмотр данного файла, файлов не менее 200 шт.. и каждый раз что бы посмотреть подходит ли человеку этот документ или нет открывать ворд как то не очень удобно...

[Stilet]

А-а-а понял. Тогда предложу использовать WordView. Это спецпрограмма разработанная именно для предпросмотра в виде Active X (короче компонента).
Юзал ее когда-то, неплохая весчь.

[Vladya]

Только что опробовал... кстати, называется OfficeViewer отличная штука, все офисовские документы можно смотреть и даже редактировать с программы... единственный минус это то что она платная
Спасибо ребята за помощь!