Как отключить в Olecontainer служебные сообщения Word?

[alexan0308]

Как отключить в Olecontainer служебные сообщения Word? А то при открытии файла пишет иногда про макросы, притом естественно не в главном окне. Юзверь ничего не поймет. В ворде в принципе знаю. Открываю файл так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Form1.OpenDialog1.Execute then exit;
   myDocumentName:=Form1.OpenDialog1.FileName;
   OleContainer2.CreateObjectFromFile(myDocumentName,false);
end;

Если открываю так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Form1.OpenDialog1.Execute then exit;
   myDocumentName:=Form1.OpenDialog1.FileName;
   OleContainer2.CreateObject('Word.Application',False);
   OleContainer2.OleObject.Application.DisplayAlerts:=false;
   OleContainer2.CreateObjectFromFile(myDocumentName,false);
end;

То все ок, но в процессах висят два ворда )). Помогите либо в первый код засунуть правильно DisplayAlerts:=false;, либо во второй открыть документ Word по другому (не как CreateObjectFromFile)

[FaTaL]

Я обычно с Вордом работаю через CreateOleObject ('Word.Application');

[alexan0308]

Ну я тоже. Но у меня кнопочки будут для редактирования текста

[FaTaL]

Если бы точнее знать что Вы именно хотите сделать, то может что-то бы получилось. А вот почему у Вас 2 процесса ворд запускаются, надо разобраться. Показывайте весь код работы с Ворд. Там видно будет. Но как писал выше, лучше скажите что вы хотите вообще от Ворда получить.

[alexan0308]

Мне просто нужно открыть вордовский документ именно в Олеконтейнере. Проблема в том, что при открытии некоторых документов Ворд ругается на их макросы: "Microsoft Office обнаружил возможное нарушение безопасности. Внимание! Не удалось определить надежность... "

И это сообщение вылазиет не в олеконтейнере, а за приложением. Юзверь просто может его не увидеть. А увидит зависшее окно приложения. Как тут быть. Кнопка такая:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Form1.OpenDialog1.Execute then exit;
   myDocumentName:=Form1.OpenDialog1.FileName;
   OleContainer2.CreateObjectFromFile(myDocumentName,false);
end;