VB в Delphi

[oblom04]

Привет всем!
Не могу никак переделать макрос Word (вставка в колонтитул пути и имени файла) в код Delphi.
Вот собственно макрос:

    NormalTemplate.AutoTextEntries("Filename and path").Insert Where:= _
        Selection.Range, RichText:=True

Нашел конвертер, который выдал следующее:
NormalTemplate.AutoTextEntries('Fil ename and path').Insert(Selection.Range, true).
Но при этом выдаются ошибки:
[Error] Unit1.pas(898): Missing operator or semicolon
[Error] Unit1.pas(898): Undeclared identifier: 'Insert'
[Error] Unit1.pas(898): Object or class type required

Подскажите, где я допустил ошибку.

[MaxNik2009]

А можно всю процедуру посмотреть? Где и как подключаешься к Word?
К стати твой макрос у меня не работает(офис 2010).

[oblom04]

У меня стоит Word 2003, SP3 и Delphi 5.

Подключаю следующим образом:
WordApplication1.Connect;
WordApplication1.Documents.Add(Empt yParam, EmptyParam);
WordDocument1.ConnectTo(WordApplica tion1.ActiveDocument);
……….
……….
// переходим на нижний колонтитул
WordApplication1.ActiveWindow.Activ ePane.View.SeekView:=wdSeekCurrentP ageFooter;
// вставляем текст
WordApplication1.NormalTemplate.Aut oTextEntries('Filename and path').Insert(Selection.Range, true);
// размер шрифта
WordApplication1.Selection.Font.Siz e := 6;
// переходим с колонтитула на документ
WordApplication1.ActiveWindow.Activ ePane.View.SeekView:=wdSeekMainDocu ment;

[oblom04]

Решил проблему следующим образом
1.В Word записал макрос:
Вставка -> Поле -> FILENAME -> ставим птичку на "Добавить путь к имени файла"
Собственно сам макрос:
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"FILENAME \p", PreserveFormatting:=True
2.Код в Delphi:
var
U1,U2,U3 : OleVariant;
…..
…..
U1:=wdFieldEmpty;
U2:='FILENAME \p';
U3:=True;
WordApplication1.Selection.Fields.A dd(WordApplication1.Selection.Range ,U1,U2,U3);

Вот и все. Может кому-то и поможет.