Delphi ile WORD kullanımı

[bellek]

Delphi raporlarını ms word ile yazdırmak istiyorum bu konuda deneyimini paylaşmak isteyenler buraya


NOT Delphi 3 kullanıyorum







www.bellek.host.sk

[bellek]

Delphi ile Word kullanabilmek için öncelikle AHWord97 isimli componenti bulup yükledim ayrıca internetten bulduğum Word_TBL.pas dosyasını delphi dizininde imports dizinine kopyaladım

daha sonra word ü açık word üzerinde yer imleri tanımladım örneğin belge üzerine _adi yazıp bunu seçip yer imi olarak adi tanımladım daha sonra program içerisinden


var
WrdRange2 : TWordRange;
begin
// WORD açılıyor
WrdApp := TWordApp.Create (True, True);
WrdApp.Application.Visible := True;
// Hazırladığım word belgesini açtırıyorum
WrdDoc := TWordDoc.CreateOpenDoc (WrdApp, ExtractFilePath(Application.EXEName) + 'Yazilar/adres.doc');
WrdRange := TWordRange.CreateFromBookMark (WrdDoc, 'adi');
with WrdRange do
begin
Text := Table1.FieldByName('ADI').Asstring;

// GotoBookmark ('Soyadi');
// Text := Table1.FieldByName('SOYADI').Asstring;
Collapse (wdCollapseEnd);
end;
WrdRange2 := TWordRange.CreateFromRange (WrdDoc, WrdRange.GetPreviousRange (wdWord, 2));
WrdRange2.MoveStart (wdWord, -2);
WrdRange2.Select;
WrdRange.Free;
WrdRange2.Free;
end;
----------------

denemek isteyenler deneyebilir
özellikle delphi nin quick report undan bıkanlara