Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Открытие файла с изменение полей в WORDе [D7, XP]

Dimich1978 © (2008-07-23 11:10:00)
Вот код который я написал, в последней процедуре открывается файл в ворде и надо выставить в документе поля. Но ругается что несовпадение типов 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:00) [1]
Все спасибо разобрался, все меняется теперь

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »