Открытие файла с изменение полей в WORDе

← →
Dimich1978 (2008-07-23 11:10) [0]

Вот код который я написал, в последней процедуре открывается файл в ворде и надо выставить в документе поля. Но ругается что несовпадение типов Variant и _Document. Помогите слепому ткните пальцем исправить данную ситуацию. Пока буду сам разбираться, но жду помощи от вас т.к. надо сделать манюсенькую прогу для себя. Заранее спасибо за все предыдушие ответы.
Function VisibleWord (visible:boolean):boolean;
begin
VisibleWord:=true;
try
W.visible:= visible;
except
VisibleWord:=false;
end;
End;

Function CreateWord:boolean;
begin
CreateWord:=true;
try
W:=CreateOleObject("Word.Application");
except
CreateWord:=false;
end;
End;

procedure TForm1.Button2Click(Sender: TObject);
var
vid:variant;
begin
if opendialog1.Execute then
begin
CreateWord;
W.Application.Documents.Open(opendialog1.FileName);
VisibleWord(true);
vid := 2;
W.Windows.Item(vid).Activate;
WordDocument1.ConnectTo(W.ActiveDocument);
WordDocument1.PageSetup.TopMargin:=100;
WordDocument1.PageSetup.BottomMargin:=90;
WordDocument1.PageSetup.LeftMargin:=90;
WordDcoument1.PageSetup.RightMargin:=50;
end;
end;

← →
Dimich1978 (2008-07-23 12:13) [1]

Все спасибо разобрался, все меняется теперь

Открытие файла с изменение полей в WORDе Найти похожие ветки