//IDE Servers bölümündeki Wordapplication ile Dosya acmak
//gerci Comobj ile Oleobj kullanmak daha kolay ama Nokta
//dan sonra prosedür ve metotlari gösterdiginden bu faydali.
//Degiskenler bos birakilmammali, olevariant olarak tanimlanmali.
//Degiskenler hakkinda bilgiyi(tipi vs.) word Visual basic penceresindeki yardimdan ögrenebilirsiniz.
procedure TForm1.Button2Click(Sender: TObject);
var
filename:Olevariant;
s1,s2,s3,s4,s5,s6,s7,s8,s9:Olevariant;
begin
s1:=false;//ConfirmConversions Optional Variant. True
s2:=false;//readonly
s3:=false;//AddToRecentFiles Optional Variant. True
s4:='';// The password for opening the document.
s5:='';// The password for opening the template.
s6:=true;//Revert
s7:=''; //The password for saving changes to the document.
s8:=''; //The password for saving changes to the template.
s9:=wdOpenFormatAuto;//format.
wa1.Disconnect;//wordü elle kaparsa hata vermemesi icin
wa1.Connect;
filename:='d:\worddelphi\ykdsubat2001.doc';
wa1.Visible:=true;//wordü göster
wa1.Documents.Open(filename,s1,s2,s3,s4,s5,s6,s7,s8,s9);//degisken kac adetse tanimlanmali.
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
wa1.Disconnect;//Word elle kapanirsa hata vermesin diye.
//wordapplication1.Visible:=false;// Bunu kullanma. word cikarken degisiklikleri kaydetmek istiyormusunuz vs. diye sordugunda göremedigin icin acik kaliyor.
wa1.Quit;
end;