ارسال اطلاعات به صورت خاص به Word

[دنیای دلفی]

سلام به دوستان و همكاران :
من دارم روي يك برنامه كار مي كنم كه نياز به اكسپورت اطلاعات به صورت خاص به word دارم من به راحتي مي توانم با برنامه هاي مختلف اكسپورت به word داشته باشم . ولي كاري كه من مي خواهم انجام بدهم به صورت زير است :

تمامي كارهاي زير به صورت كد نويسي انجام شود :
يك صفحه word باز شود با اندازه و ابعاد كاغذ مشخص شده در كد نويسي .
يك جمله به صورت مشخص شده (مثلا فونت Lotus و اندازه 18 به صورت Bold , ،UnderLine) درون آن نوشته شود . سپس 5 كاراكتر فضاي خالي اعمال شود . سپس كليد اينتر زده شود . فونت تغيير كند و اندازه قلم نيز همينطور سپس عبارتي ديگر نوشته شود الي آخر .

در اصل مي خواهم با Word به عنوان صفحه نمايش يا يك RTFMemo برخورد كنم .

آيا كد خاص يا كامپوننت خاصي براي اين كار است .

ممنون اگر راهنمايي كنيد

[amin_alexi]

سلام
این مسیر رو برو ببین البته شما توی مسیری که نصب کردی


C:\Program Files\Borland\Delphi7\Demos\ActiveX\OleAuto\Word8

یا این مسیر ببین به دردت می خوره ؟!


C:\Program Files\Borland\Delphi7\Demos\ActiveX\OleAuto\SrvCom p\Word

فکر کنم بدردت بخوره هر دو مثالهای Delphi هستند ...

[دنیای دلفی]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, WordXP, OleCtnrs, OleServer;
type
TForm1 = class(TForm)
Button1: TButton;
OleContainer1: TOleContainer;
Edit1: TEdit;
WordApplication: TWordApplication;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
WordApplication.Connect;
WordApplication.Visible := True;

WordApplication.Documents.Add(EmptyParam,EmptyPara m,EmptyParam,EmptyParam);
with WordApplication.Selection do
begin
ParagraphFormat.Alignment := wdAlignParagraphCenter;
Font.NameBi := 'Titr';
Font.SizeBi := 28;
Font.BoldBi := 1;
TypeText( Edit1.Text);

Font.NameBi := 'Traffic';
Font.SizeBi := 28;
Font.BoldBi := 1;
TypeText( Edit2.Text);
end;

WordApplication.Disconnect;
end;

end.



ممنون از دوستان حل شد