Mega Code Archive

Idede servers bölümünde wordapplicationla dosya acma

//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;