Delphi Memo bilgileri MS-Word aktarmak

[Metin]

slm Arkadaşlar,
Delphi Programımın Memo bölümündeki metni Word'e aktarmak ve işlem yapmak istiyorum
bu hususda yardımcı olabilirmisiniz

Örneğin Word'e bir form hazırladım ve bu forma bazı yerlerine, veya boşluk olan yerlere programdan veri gönderip çıktı almak istiyorum. Ama bunu özellikle MS Word belgesine yaptırmam gerekiyor...

çok teşekkür ederim

[elixir84]

Word içeriği
Adı Soyadı : <<ADISOYADI>>
Doğum Yeri : <<DOGUMYERI>>
Doğum Tarihi : <<DOGUMTARIHI>>

procedure TForm1.Button1Click(Sender: TObject);
var
 WordApp, WordDoc: OleVariant;
begin
 WordApp := CreateOleObject('Word.Application');
 WordApp.Visible := True;
WordDoc := WordApp.Documents.Open('C:\test.docx');

WordApp.Selection.Find.ClearFormatting;
WordApp.Selection.Find.Text := '<<ADISOYADI>>';
WordApp.Selection.Find.Replacement.Text := 'Ahmet Yılmaz';
WordApp.Selection.Find.Execute(Replace:=2);

WordApp.Selection.Find.Text := '<<DOGUMYERI>>';
WordApp.Selection.Find.Replacement.Text := 'İstanbul';
WordApp.Selection.Find.Execute(Replace:=2);

WordApp.Selection.Find.Text := '<<DOGUMTARIHI>>';
WordApp.Selection.Find.Replacement.Text := '01.01.2000';
WordApp.Selection.Find.Execute(Replace:=2);
end;

[Metin]

(25-06-2025, Saat: 09:49)Çok teşekkür ederim çok sağol tam istediğim gibi Adlı Kullanıcıdan Alıntı: Word içeriği
Adı Soyadı : <<ADISOYADI>>
Doğum Yeri : <<DOGUMYERI>>
Doğum Tarihi : <<DOGUMTARIHI>>

procedure TForm1.Button1Click(Sender: TObject);
var
 WordApp, WordDoc: OleVariant;
begin
 WordApp := CreateOleObject('Word.Application');
 WordApp.Visible := True;
WordDoc := WordApp.Documents.Open('C:\test.docx');

WordApp.Selection.Find.ClearFormatting;
WordApp.Selection.Find.Text := '<<ADISOYADI>>';
WordApp.Selection.Find.Replacement.Text := 'Ahmet Yılmaz';
WordApp.Selection.Find.Execute(Replace:=2);

WordApp.Selection.Find.Text := '<<DOGUMYERI>>';
WordApp.Selection.Find.Replacement.Text := 'İstanbul';
WordApp.Selection.Find.Execute(Replace:=2);

WordApp.Selection.Find.Text := '<<DOGUMTARIHI>>';
WordApp.Selection.Find.Replacement.Text := '01.01.2000';
WordApp.Selection.Find.Execute(Replace:=2);
end;