Скачать: CL | DM;

Открытие файла с изменение полей в 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c