Memo Nesnesindeki Metini Word Belgesine Yazdırmak

Merhaba arkadaşlar bu Memo nesnesindeki metini Word belgesine yazdıracağız. Palette kısmından Formumuza 1 adet Memo ve Button ekleyelim. Ayrıca uses kısmına Vcl.StdCtrls,ComObj  ekleyelim.

Şekil 1

Şekil 2

unit word_Unit1; interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,ComObj;

type

TForm1 = class(TForm)

Memo1: TMemo;

btnSaveWord: TButton;

procedure btnSaveWordClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnSaveWordClick(Sender: TObject);

var Word: Variant; fname: string; begin

Word:=CreateOLEObject('Word.Application');

fname:= 'D:\Data\Word.docx';

Word.Visible:=True; Word.Documents.Open(fname);

Word.WordBasic.Insert(Memo1.Text); Word.Documents.Save;

ShowMessage(fName + ' dosyasina girilen metin basari sekilde word belgesine eklendi!');

end;

procedure TForm1.FormCreate(Sender: TObject); begin

Left:=(Screen.Width-Width) div 2; Top:=(Screen.Height-Height) div 2; end;

end.

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN