Word'e aktarma ?

[vedatkaba]

Herkese hayırlı günler...

Editlerdeki bilgileri worde aktarma konusunda adam gibi bir kod bulamadım ,açıkcası işi çözemedim...
Forumda da aradım ama net bir bilgi yok ,yada ben bulmayı başaramadım..

Bu konuda yardım istiyorum ...

İyi çalışmalar...


--------------------------------------------------------------------------
KARDEŞİM SEN,DÜŞÜNCEDEN İBARETSİN,
GERİYE KALAN ET KEMİKSİN,
GÜL DÜŞÜNÜR GÜLİSTAN OLURSUN ,
DİKEN DÜŞÜNÜR DİKENLİK OLURSUN..
Hz.MEVLANA

[mkysoft]

Excel'a veri atma konusunda bir sürü konu. Sonuçta hepsi Server sekmesindeki nesnelerle yapılıyor. Çok farklı değil işlevleri. Eğer word ile ilgili döküman yoksa excel olanlara bir göz atın, ordan yola çıkarak yapabilirsiniz. Hazır birşeyler istiyorsanız olmayabilir ama ben rastladım diye hatırlıyorum.

[shochan]

S.a hocam aynı olayı bende şuan yapmakta olduğum bir programda uygulamak istedim ve forumdaki aramalarım sonucunda worde aktarma işini şu şekilde çözdüm. Öncelikle editlerdeki textleri bir memoya aktardım ve forma eklediğim savedialog bileşeni yardımıylada worde aktarma yaptım yalnız burdada şöyle bir durum söz konusu editlere türkçe karakter girersem word dosyada bunlar görünmüyor bunun çözümünü bulamadım daha doğrusu arama ve uygulama fırsatım olmadı. Kodları yazayım umarım işinize yarar.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Add(edit1.Text);
memo1.Lines.Add(edit2.Text);
"
"
"
memo1.Lines.Add(editn.Text);
saveDialog1.Title:='Farklı Kaydet';
saveDialog1.DefaultExt:='doc';
saveDialog1.Filter:='Tüm Dosyalar|*.*| Word Dosyalari|*.doc';

saveDialog1.FilterIndex:=2;
saveDialog1.InitialDir:='Word Dosyanın Kayıt Edileceği Yer' ;
if SaveDialog1.Execute then
begin
memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
end;

Hocam umarım işinize yarar ben bu şekilde worde aktarım yaptım ve türkçe karakter sorunu hariç istediğim sonucu alıyorum.