W
wp231957
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
Word:variant;
begin
try
word :=createoleobject('word.application');
word.visible := false;
Word.documents.open('f:/test.doc');
memo1.Text :=word.ActiveDocument.Range(Start:=0,End:=199).text;
finally
word.quit;
word := unassigned;
end;
end;
var
Word:variant;
begin
try
word :=createoleobject('word.application');
word.visible := false;
Word.documents.open('f:/test.doc');
memo1.Text :=word.ActiveDocument.Range(Start:=0,End:=199).text;
finally
word.quit;
word := unassigned;
end;
end;
][