Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Veritabanindan Word dosyasina veri eklemek
#1
Question 
Selam Üstadlar,

Elimde Word dosyasi  var, bir nevi Template gibi düsünebilirsiniz. Burada belirli alanlari doldurmam gerekiyor. Excel den olsa birkac kez yaptigimdan problem olmuyor da, Word ile hic calismadim ve hicbir fikrim yok. Bana yardimci olabilirmisiniz ?
Cevapla
#2
Fastreport ile raporlama yaptıktan sonra word dosyası olarak export yapabilirsiniz işinizi görürmü bilmiyorum.
Cevapla
#3
Selamlar

Aşağıdaki linkteki PDF dosyasını inceleyebilirsin. Orada sana yardımcı olacak doneler mevcuttur.

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
Cevapla
#4
Tessekür ederim, bir inceliyeyim, anlamadigim yer yada yapamazsam tekrar yazarim.
Cevapla
#5
Merhaba arkadaslar,
herkese hayirli Ramazanlar diliyorum. 
Word dosyasina yazdirmayi malesef beceremedim. Gri olarak belirlenmis yerlere birde siz yazdirmaya deniyebilirmisiniz ?


Ek Dosyalar
.docx   Word dosyasi.docx (Dosya Boyutu: 32,23 KB / İndirme Sayısı: 10)
Cevapla
#6
merhaba arkadaslar, yokmu word'e hic yazi yazdiran bir Üstad ? bir ip ucu bile cok degerli benim icin.
Cevapla
#7
Lightbulb 
Buyrun.

Uses ComObj;

procedure TForm1.BitBtn1Click(Sender: TObject);
Const
 wdFieldFormTextInput  = $00000046;
 wdFieldFormCheckBox   = $00000047;
var
 aWord, aDoc  : OleVariant;
 aIdx         : Integer;
begin
 with TOpenDialog.Create(nil)
 do
   try
     Options := [];
     Filter      := 'Word Dosyaları  *.doc, *.docx|*.doc;*.docx|Tüm Dosyalar *.*|*.*';
     FilterIndex := 1;
     if Execute then
     begin
       aWord  := CreateOleObject('Word.Application');
       try
         aWord.Documents.Open( FileName );
         aDoc   := aWord.ActiveDocument;
         For aIdx := 1 to aDoc.FormFields.Count do
         begin
           case aDoc.FormFields.Item(aIdx).Type of
           wdFieldFormCheckBox  :
               begin
                 if aDoc.FormFields.Item(aIdx).CheckBox.Value
                   then Memo1.Lines.Add( Format( 'Idx: %.3d   EskiValue: "Checked"',   [ aIdx ] ) )
                   else Memo1.Lines.Add( Format( 'Idx: %.3d   EskiValue: "UnChecked"', [ aIdx ] ) );

                 // Checked işaret Koyalım...
                 aDoc.FormFields.Item(aIdx).CheckBox.Value := True;
                 // Yeni Değeri yerinden okuyarak Yazalım...
                 if aDoc.FormFields.Item(aIdx).CheckBox.Value
                   then Memo1.Lines.Add( Format( '    Idx: %.3d   YeniValue: "Checked"',   [ aIdx ] ) )
                   else Memo1.Lines.Add( Format( '    Idx: %.3d   YeniValue: "UnChecked"', [ aIdx ] ) );
               end;
           wdFieldFormTextInput :
               begin
                 Memo1.Lines.Add( Format( 'Idx: %.3d   Value: "%s"',   [ aIdx, aDoc.FormFields.Item(aIdx).Result ] ) );

                 // Yeni Değer Yazalım...
                 aDoc.FormFields.Item(aIdx).Result := Format('Index: %.3d', [ aIdx ]);
                 // Yeni Değeri yerinden okuyarak Yazalım...
                 Memo1.Lines.Add( Format( '    Idx: %.3d   YeniValue: "%s"', [ aIdx, aDoc.FormFields.Item(aIdx).Result ] ) );
               end;
           end;
         end;
       finally
         aWord.Visible := True;
         aWord := Unassigned;
          aDoc := Unassigned;
       end;
     end;
   finally
     Free;
   end;
end;




Ürün :
Memo1
Idx: 001   EskiValue: "Checked"
   Idx: 001   YeniValue: "Checked"
Idx: 002   EskiValue: "UnChecked"
   Idx: 002   YeniValue: "Checked"
Idx: 003   EskiValue: "UnChecked"
   Idx: 003   YeniValue: "Checked"
Idx: 004   EskiValue: "UnChecked"
   Idx: 004   YeniValue: "Checked"
Idx: 005   EskiValue: "UnChecked"
   Idx: 005   YeniValue: "Checked"
Idx: 006   Value: ""
   Idx: 006   YeniValue: "Index: 006"
Idx: 007   Value: ""
   Idx: 007   YeniValue: "Index: 007"
Idx: 008   Value: ""
   Idx: 008   YeniValue: "Index: 008"
Idx: 009   Value: ""
   Idx: 009   YeniValue: "Index: 009"
Idx: 010   EskiValue: "UnChecked"
   Idx: 010   YeniValue: "Checked"
Idx: 011   EskiValue: "UnChecked"
   Idx: 011   YeniValue: "Checked"
Idx: 012   Value: ""
   Idx: 012   YeniValue: "Index: 012"
Idx: 013   Value: ""
   Idx: 013   YeniValue: "Index: 013"
Idx: 014   Value: ""
   Idx: 014   YeniValue: "Index: 014"
Idx: 015   Value: ""
   Idx: 015   YeniValue: "Index: 015"
Idx: 016   Value: ""
   Idx: 016   YeniValue: "Index: 016"
Idx: 017   Value: ""
   Idx: 017   YeniValue: "Index: 017"
Idx: 018   Value: ""
   Idx: 018   YeniValue: "Index: 018"
Idx: 019   Value: ""
   Idx: 019   YeniValue: "Index: 019"
Idx: 020   Value: ""
   Idx: 020   YeniValue: "Index: 020"
Idx: 021   Value: ""
   Idx: 021   YeniValue: "Index: 021"
Idx: 022   Value: ""
   Idx: 022   YeniValue: "Index: 022"
Idx: 023   Value: ""
   Idx: 023   YeniValue: "Index: 023"
Idx: 024   Value: ""
   Idx: 024   YeniValue: "Index: 024"
Idx: 025   Value: ""
   Idx: 025   YeniValue: "Index: 025"
Idx: 026   Value: ""
   Idx: 026   YeniValue: "Index: 026"
Idx: 027   Value: ""
   Idx: 027   YeniValue: "Index: 027"
Idx: 028   Value: ""
   Idx: 028   YeniValue: "Index: 028"
Idx: 029   Value: ""
   Idx: 029   YeniValue: "Index: 029"
Idx: 030   Value: ""
   Idx: 030   YeniValue: "Index: 030"
Idx: 031   Value: ""
   Idx: 031   YeniValue: "Index: 031"
Idx: 032   Value: ""
   Idx: 032   YeniValue: "Index: 032"
Idx: 033   Value: ""
   Idx: 033   YeniValue: "Index: 033"
Idx: 034   Value: ""
   Idx: 034   YeniValue: "Index: 034"
Idx: 035   Value: ""
   Idx: 035   YeniValue: "Index: 035"
Idx: 036   Value: ""
   Idx: 036   YeniValue: "Index: 036"
Idx: 037   Value: ""
   Idx: 037   YeniValue: "Index: 037"
Idx: 038   Value: ""
   Idx: 038   YeniValue: "Index: 038"
Idx: 039   Value: ""
   Idx: 039   YeniValue: "Index: 039"
Idx: 040   Value: ""
   Idx: 040   YeniValue: "Index: 040"
Idx: 041   Value: ""
   Idx: 041   YeniValue: "Index: 041"
Idx: 042   Value: ""
   Idx: 042   YeniValue: "Index: 042"
Idx: 043   Value: ""
   Idx: 043   YeniValue: "Index: 043"
Idx: 044   Value: ""
   Idx: 044   YeniValue: "Index: 044"
Idx: 045   Value: ""
   Idx: 045   YeniValue: "Index: 045"
Idx: 046   Value: ""
   Idx: 046   YeniValue: "Index: 046"
Idx: 047   Value: ""
   Idx: 047   YeniValue: "Index: 047"
Idx: 048   Value: ""
   Idx: 048   YeniValue: "Index: 048"
Idx: 049   Value: ""
   Idx: 049   YeniValue: "Index: 049"
Idx: 050   Value: ""
   Idx: 050   YeniValue: "Index: 050"
Idx: 051   Value: ""
   Idx: 051   YeniValue: "Index: 051"
Idx: 052   Value: ""
   Idx: 052   YeniValue: "Index: 052"
Idx: 053   Value: ""
   Idx: 053   YeniValue: "Index: 053"
Idx: 054   Value: ""
   Idx: 054   YeniValue: "Index: 054"
Idx: 055   Value: ""
   Idx: 055   YeniValue: "Index: 055"
Idx: 056   Value: ""
   Idx: 056   YeniValue: "Index: 056"
Idx: 057   Value: ""
   Idx: 057   YeniValue: "Index: 057"
Idx: 058   Value: ""
   Idx: 058   YeniValue: "Index: 058"
Idx: 059   Value: ""
   Idx: 059   YeniValue: "Index: 059"
Idx: 060   Value: ""
   Idx: 060   YeniValue: "Index: 060"
Idx: 061   Value: ""
   Idx: 061   YeniValue: "Index: 061"
Idx: 062   EskiValue: "UnChecked"
   Idx: 062   YeniValue: "Checked"
Idx: 063   EskiValue: "UnChecked"
   Idx: 063   YeniValue: "Checked"
Idx: 064   EskiValue: "UnChecked"
   Idx: 064   YeniValue: "Checked"
Idx: 065   EskiValue: "UnChecked"
   Idx: 065   YeniValue: "Checked"
Idx: 066   EskiValue: "UnChecked"
   Idx: 066   YeniValue: "Checked"
Idx: 067   Value: ""
   Idx: 067   YeniValue: "Index: 067"
Idx: 068   Value: ""
   Idx: 068   YeniValue: "Index: 068"
Idx: 069   Value: ""
   Idx: 069   YeniValue: "Index: 069"
Idx: 070   Value: ""
   Idx: 070   YeniValue: "Index: 070"
Idx: 071   Value: ""
   Idx: 071   YeniValue: "Index: 071"
Idx: 072   Value: ""
   Idx: 072   YeniValue: "Index: 072"
Idx: 073   Value: ""
   Idx: 073   YeniValue: "Index: 073"
Idx: 074   Value: ""
   Idx: 074   YeniValue: "Index: 074"
Idx: 075   Value: ""
   Idx: 075   YeniValue: "Index: 075"
Idx: 076   Value: ""
   Idx: 076   YeniValue: "Index: 076"
Idx: 077   Value: ""
   Idx: 077   YeniValue: "Index: 077"
Idx: 078   Value: ""
   Idx: 078   YeniValue: "Index: 078"
Idx: 079   Value: ""
   Idx: 079   YeniValue: "Index: 079"
Idx: 080   Value: ""
   Idx: 080   YeniValue: "Index: 080"
Idx: 081   Value: ""
   Idx: 081   YeniValue: "Index: 081"
Idx: 082   Value: ""
   Idx: 082   YeniValue: "Index: 082"
Idx: 083   Value: ""
   Idx: 083   YeniValue: "Index: 083"
Idx: 084   Value: ""
   Idx: 084   YeniValue: "Index: 084"
Idx: 085   Value: ""
   Idx: 085   YeniValue: "Index: 085"
Idx: 086   Value: ""
   Idx: 086   YeniValue: "Index: 086"
Idx: 087   Value: ""
   Idx: 087   YeniValue: "Index: 087"
Idx: 088   Value: ""
   Idx: 088   YeniValue: "Index: 088"
Idx: 089   Value: ""
   Idx: 089   YeniValue: "Index: 089"
Idx: 090   Value: ""
   Idx: 090   YeniValue: "Index: 090"
Idx: 091   Value: ""
   Idx: 091   YeniValue: "Index: 091"
Idx: 092   Value: ""
   Idx: 092   YeniValue: "Index: 092"
Idx: 093   Value: ""
   Idx: 093   YeniValue: "Index: 093"
Idx: 094   Value: ""
   Idx: 094   YeniValue: "Index: 094"
Idx: 095   Value: ""
   Idx: 095   YeniValue: "Index: 095"
Idx: 096   Value: ""
   Idx: 096   YeniValue: "Index: 096"
Idx: 097   Value: ""
   Idx: 097   YeniValue: "Index: 097"
Idx: 098   Value: ""
   Idx: 098   YeniValue: "Index: 098"
Idx: 099   Value: ""
   Idx: 099   YeniValue: "Index: 099"
Idx: 100   Value: ""
   Idx: 100   YeniValue: "Index: 100"
Idx: 101   Value: ""
   Idx: 101   YeniValue: "Index: 101"
Idx: 102   Value: ""
   Idx: 102   YeniValue: "Index: 102"
Idx: 103   Value: ""
   Idx: 103   YeniValue: "Index: 103"
Idx: 104   Value: ""
   Idx: 104   YeniValue: "Index: 104"
Idx: 105   Value: ""
   Idx: 105   YeniValue: "Index: 105"
Idx: 106   Value: ""
   Idx: 106   YeniValue: "Index: 106"
Idx: 107   Value: ""
   Idx: 107   YeniValue: "Index: 107"
Idx: 108   Value: ""
   Idx: 108   YeniValue: "Index: 108"
Idx: 109   Value: ""
   Idx: 109   YeniValue: "Index: 109"
Idx: 110   Value: ""
   Idx: 110   YeniValue: "Index: 110"
Idx: 111   Value: ""
   Idx: 111   YeniValue: "Index: 111"
Idx: 112   Value: ""
   Idx: 112   YeniValue: "Index: 112"
Idx: 113   Value: ""
   Idx: 113   YeniValue: "Index: 113"
Idx: 114   Value: ""
   Idx: 114   YeniValue: "Index: 114"
Idx: 115   Value: ""
   Idx: 115   YeniValue: "Index: 115"
Idx: 116   Value: ""
   Idx: 116   YeniValue: "Index: 116"
Idx: 117   Value: ""
   Idx: 117   YeniValue: "Index: 117"
Idx: 118   Value: ""
   Idx: 118   YeniValue: "Index: 118"
Idx: 119   Value: ""
   Idx: 119   YeniValue: "Index: 119"
Idx: 120   Value: ""
   Idx: 120   YeniValue: "Index: 120"
Idx: 121   Value: ""
   Idx: 121   YeniValue: "Index: 121"
Idx: 122   Value: ""
   Idx: 122   YeniValue: "Index: 122"
Idx: 123   Value: ""
   Idx: 123   YeniValue: "Index: 123"
Idx: 124   Value: ""
   Idx: 124   YeniValue: "Index: 124"
Idx: 125   Value: ""
   Idx: 125   YeniValue: "Index: 125"
Idx: 126   Value: ""
   Idx: 126   YeniValue: "Index: 126"
Idx: 127   Value: ""
   Idx: 127   YeniValue: "Index: 127"
Idx: 128   Value: ""
   Idx: 128   YeniValue: "Index: 128"
Idx: 129   Value: ""
   Idx: 129   YeniValue: "Index: 129"
Idx: 130   Value: ""
   Idx: 130   YeniValue: "Index: 130"
Idx: 131   Value: ""
   Idx: 131   YeniValue: "Index: 131"
Idx: 132   Value: ""
   Idx: 132   YeniValue: "Index: 132"
Idx: 133   Value: ""
   Idx: 133   YeniValue: "Index: 133"
Idx: 134   Value: ""
   Idx: 134   YeniValue: "Index: 134"
Idx: 135   Value: ""
   Idx: 135   YeniValue: "Index: 135"
Idx: 136   Value: ""
   Idx: 136   YeniValue: "Index: 136"
Idx: 137   Value: ""
   Idx: 137   YeniValue: "Index: 137"
Idx: 138   Value: ""
   Idx: 138   YeniValue: "Index: 138"
Idx: 139   Value: ""
   Idx: 139   YeniValue: "Index: 139"
Idx: 140   Value: ""
   Idx: 140   YeniValue: "Index: 140"
Idx: 141   Value: ""
   Idx: 141   YeniValue: "Index: 141"
Idx: 142   Value: ""
   Idx: 142   YeniValue: "Index: 142"
uw5eakt1lyyfqhnruxca.png
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#8
Hocam, emeklerin ve yardimlarin icin sana cok ama cok tessekür ediyorum, Allah razi olsun. Deneyip sonucu bildiririm yarin.
Cevapla
#9
Word yerine RTF formatında rapor tasarlayarak ilgili alanları doldurabilirsiniz. EkRTF componentini incelemenizi öneririm. Geçmişte çok işime yaramıştı.

Component Linki :Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

Nasıl kullanıldığına dair basit bir örnek : Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
Cevapla
#10
Teşekkürler @mrmarman hocam
eline sağlık
Web Site : Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
Facebook Page : Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Comport veri okuma klavye 16 296 18-06-2019, Saat: 17:19
Son Yorum: boreas
  Parça Parça veri gönderme onurakman 1 153 08-06-2019, Saat: 18:08
Son Yorum: masteryoda
  [ÇÖZÜLDÜ] Veritabanından hızlı veri çekmek için tavsiye wiseman 6 273 31-05-2019, Saat: 22:34
Son Yorum: frmman
  Veri tabanına aynı değeri tekrarlama arsl01 21 656 03-05-2019, Saat: 11:34
Son Yorum: edo
  Fastreport nesne kontrolu ve veri yazma cinarbil 3 207 18-04-2019, Saat: 08:16
Son Yorum: cinarbil



Konuyu Okuyanlar: 1 Ziyaretçi