Тема: Ole Conteiner
Показать сообщение отдельно
  #1  
Старый 09.05.2014, 12:12
rapashocker rapashocker вне форума
Прохожий
 
Регистрация: 10.04.2014
Сообщения: 20
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Ole Conteiner

Код:
 OleContainer1.CreateObjectFromFile('D:\Записка на диплом.docx', False);
  OleContainer1.DoVerb(ovShow);
      ev := 2;

  for i:=1 to OleContainer1.OleObject.CommandBars.Count do
      if OleContainer1.OleObject.CommandBars.Item[i].Visible then
        OleContainer1.OleObject.CommandBars.Item[i].Visible:=1;

          OleContainer1.OleObject.Protect(ev);
    OleContainer1.OleObject.ActiveWindow.ActivePane.DisplayRulers := false;
    OleContainer1.OleObject.Application.CommandBars['Standard'].visible:=false;
Вообщем я гружу фаил вордовский в OLE контейнер и вот в чем проблема, здесь используется код для того, чтобы убрать понель инструментов ворда, но он работает только для 2007 у меня 2013 помогите плиз убрать полосу инструментов заранее благодраю!!!!
Ответить с цитированием