Добавить оглавление для Word внутри OleContainer

[alexan0308]

Загрузил в олеконтейнер ворд

procedure TForm1.Button11Click(Sender: TObject);
var
  ev : OleVariant;
   i : Integer;
begin
  OleContainer2.CreateObject('Word.Application',False);
  OleContainer2.CreateObjectFromFile(
  ExtractFilePath(Application.ExeName)+'Помощь.doc',false);
  OleContainer2.DoVerb(ovOpen);
  ev := 2;  OleContainer2.OleObject.Protect(ev);
end;

Все нормально, документ загрузился и редактируется. Хочу повесить на другую кнопку добавления оглавления (содержания) в текущем месте курсора

procedure TForm1.Button18Click(Sender: TObject);
var Selection, W :variant;
FBoolFalse,
FBoolTrue,
FEmptyString,
FEncoding: OleVariant;
 UpperHeadingLevel, LowerHeadingLevel,
 numRange: OleVariant;	aRange: Variant;
begin
     W:=  OleContainer2.OleObject.Application;
     Selection:=OleContainer2.OleObject.Application.Selection;
 aRange:= Selection.Range;
 UpperHeadingLevel:= 1;
 LowerHeadingLevel:= 3;  
 W.TablesOfContents.Add(aRange{Range}, FBoolTrue{UseHeadingStyles},
 UpperHeadingLevel{UpperHeadingLevel}, LowerHeadingLevel{LowerHeadingLevel},
 FBoolTrue{UseFields}, FEmptyString{TableID},
 FBoolTrue{RightAlignPageNumbers}, FBoolTrue{IncludePageNumbers},
 FEmptyString{AddedStyles}, FBoolTrue{UseHyperlinks},
 FBoolTrue{HidePageNumbersInWeb}, FBoolTrue{UseOutlineLevels});
end;

Ошибка... Method TableOfContents not supported by automation object
Как правильно обратиться к ворду внутри контейнера?

[alexan0308]

Так то получилось... Теперь не получается оформить стиль каждого оглавления...

var Selection, W :variant;
...

procedure AddContents;
var Range, Font, ParagraphFormat : Variant;
begin

Font:= W.ActiveDocument.Styles('Оглавление 1').Font; //Тут ошибка
        Font.Name:= 'Times New Roman';
        Font.Size:= 14;

W.ActiveDocument.TablesOfContents.Add(Range:=Selection.Range, RightAlignPageNumbers:= True,
UseHeadingStyles:=True, UpperHeadingLevel:=1, LowerHeadingLevel:=3, IncludePageNumbers:=True,
AddedStyles:='',  UseHyperlinks:=False, HidePageNumbersInWeb:=True, UseOutlineLevels:= True);

end;

Кнопка добавления оглавления:

procedure TForm1.Button18Click(Sender: TObject);
begin
     W:=  OleContainer2.OleObject.Application;
     Selection:=OleContainer2.OleObject.Application.Selection;
     AddContents;
end;

[volvo877]

alexan0308, а почему ты пытаешься вызвать TablesOfContents для OleContainer2.OleObject.Application, когда этот метод присутствует в Document-е? Попробуй вызвать

W.ActiveDocument.TablesOfContents.Add(...)

P.S. DOC-файл, хотя бы небольшой, тестовый, присоединил бы для экспериментов...

[alexan0308]

Спасибо, эту ошибку я уже понял... стиль не могу теперь поменять каждого оглавления...

[volvo877]

Font:= W.ActiveDocument.Styles.Item('Heading 1').Font; // На англоязычном Office работает

[alexan0308]

Точно, если напрямую без контейнера делать,

Font:= W.ActiveDocument.Styles.Item('Оглавление 1').Font;

работает...
А если обращаться в контейнере, то пишет нет такого метода Styles...

[volvo877]

Так я в контейнере и обращаюсь:

[alexan0308]

Все работает, огромное спасибо! Это у меня ошибка уже на другое место показывала...

[volvo877]

Да взял твой код, и скопировал, только имя файла поменял:

procedure TForm1.Button4Click(Sender: TObject);
var
  ev : OleVariant;
   i : Integer;
begin
  OleContainer2.CreateObject('Word.Application',False);
  OleContainer2.CreateObjectFromFile(
  ExtractFilePath(Application.ExeName)+'test.doc',false);
  OleContainer2.DoVerb(ovOpen);
  // ev := 2;  OleContainer2.OleObject.Protect(ev);
end;

А, да... Уровень защиты отключил, потому что со включенной выпадет ошибка: "This method or property if not available because the object refers to a protected area of the document"