دلفي وورد مثال 1

// ============سف

فرعي في Word ()

تعتيم myTable كجدول

تعتيم myBox، myPict، myShape كشكل

"ارسم المستطيل الأول."

تعيين myBox = ActiveDocument.Shapes.AddTextbox(الاتجاه:=1، اليسار:=90، الأعلى:=70، العرض:=414، الارتفاع:=200)

"ارسم خطًا عموديًا."

تعيين myLine = ActiveDocument.Shapes.AddLine(255, 70, 255, 270)

"ارسم الصورة الأولى."

تعيين myPict = ActiveDocument.Shapes.AddPicture("D:/test/test/load_jpg1/photo/108259.jpg"، _

LinkToFile:=False، SaveWithDocument:=True، Left:=180، Top:=80، Width:=65، الارتفاع:=80)

"ارسم الصورة الثانية."

تعيين myPict = ActiveDocument.Shapes.AddPicture("D:/test/test/load_jpg1/photo/108259.jpg"، _

LinkToFile:=False، SaveWithDocument:=True، Left:=262، Top:=80، Width:=65، الارتفاع:=80)

'اسم

تعيين myShape = ActiveDocument.Shapes.AddTextbox(الاتجاه:=1، اليسار:=108، الأعلى:=198، العرض:=126، الارتفاع:=18)

myShape.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "الاسم: شينوسوكي"

'عمر

تعيين myShape = ActiveDocument.Shapes.AddTextbox (الاتجاه: = 1، اليسار: = 108، الأعلى: = 225، العرض: = 126، الارتفاع: = 18)

myShape.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "العمر: 12"

'معلومات شخصية

تعيين myShape = ActiveDocument.Shapes.AddTextbox(الاتجاه:=1، اليسار:=351، الأعلى:=90، العرض:=126، الارتفاع:=99)

myShape.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "المعلومات الشخصية"

'أضف جدولاً إلى مربع النص

تعيين myShape = ActiveDocument.Shapes.AddTextbox(الاتجاه:=1، اليسار:=288، الأعلى:=198، العرض:=189، الارتفاع:=63)

myShape.Line.Visible = msoFalse

تعيين myTable = ActiveDocument.Tables.Add(Range:=myShape.TextFrame.TextRange, NumRows:=3, NumColumns:= _

2، DefaultTableBehavior:=wdWord9TableBehavior، AutoFitBehavior:=wdAutoFitFixed)

myTable.Cell(1, 1).Range.Text = "الوزن"

myTable.Cell(1, 2).Range.Text = "40 كجم"

myTable.Cell(2, 1).Range.Text = "الارتفاع"

myTable.Cell(2, 2).Range.Text = "120 سم"

myTable.Cell(3, 1).Range.Text = "اجلس عاليًا"

myTable.Cell(3, 2).Range.Text = "65 سم"

النهاية الفرعية

// =================== Delphi Code ===================

الإجراء في دلفي؛

فار

WordApp,WordDoc,WordTable,wordShape:OleVariant;

اسم الملف:سلسلة؛

يبدأ

SaveDialog1.InitialDir:=ExtractFilePath(application.ExeName)+'out_file';

SaveDialog1.Execute;

self.Refresh;

اسم الملف:=savedialog1.FileName;

إذا كان الطول (اسم الملف) = 0 إذن

يبدأ

application.MessageBox('لم يتم تحديد موقع تخزين الملف الإحصائي، ولا يمكن حفظ البيانات الإحصائية!','مربع المطالبة',mb_ok);

مخرج؛

نهاية؛

WordApp:=CreateOleObject('Word.Application');

WordApp.Visible:=True;

WordDoc:=WordApp.Documents.Add;

يحاول

// ارسم المستطيل الأول

worddoc.SHAPES.AddTextbox(الاتجاه:=1، اليسار:=90، الأعلى:=70، العرض:=414، الارتفاع:=200);

// ارسم خطًا عموديًا

worddoc.Shapes.AddLine(255, 70, 255,270);

// ارسم الصورة الأولى

worddoc.SHAPES.addpicture(ExtractFilePath(Application.ExeName)+'photo/108259.jpg',

LinkToFile:=False, SaveWithDocument:=True, Left:=180, Top:=80, Width:=65, Height:=80);

// ارسم الصورة الثانية

worddoc.SHAPES.addpicture(ExtractFilePath(Application.ExeName)+'photo/108259.jpg',

LinkToFile:=False, SaveWithDocument:=True, Left:=262, Top:=80, Width:=65, Height:=80);

// ارسم مربع اسم

wordShape:=worddoc.Shapes.AddTextbox(الاتجاه:=1, اليسار:=108, الأعلى:=198, العرض:=126, الارتفاع:=18);

wordShape.Line.Visible := false;

wordShape.TextFrame.TextRange.Text := 'الاسم: شينوسوكي';

//صندوق العمر

wordShape:=worddoc.Shapes.AddTextbox(Orientation:=1, Left:=108, Top:=225, Width:=126, Height:=18);//.Select;

wordShape.Line.Visible := false;

wordShape.TextFrame.TextRange.Text := 'العمر: 12';

//مربع المعلومات الشخصية

wordShape:=worddoc.Shapes.AddTextbox(Orientation:=1, Left:=351, Top:=90, Width:=126, Height:=99);//.Select;

wordShape.Line.Visible := false;

wordShape.TextFrame.TextRange.Text := 'المعلومات الشخصية';

// إضافة جدول إلى مربع النص

wordShape:=worddoc.Shapes.AddTextbox(Orientation:=1, Left:=288, Top:=198, Width:=189, Height:=63);//.Select;

wordShape.Line.Visible := false;

WordTable := worddoc.Tables.Add(Range:=wordShape.TextFrame.TextRange, NumRows:=3, NumColumns:=2,

DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed);

WordTable.Cell(1, 1).Range.Text := 'الوزن';

WordTable.Cell(1, 2).Range.Text:= '40kg';

WordTable.Cell(2, 1).Range.Text := 'الارتفاع';

WordTable.Cell(2, 2).Range.Text:= '120cm';

WordTable.Cell(3, 1).Range.Text := 'الجلوس عاليا';

WordTable.Cell(3, 2).Range.Text:= '65cm';

WordDoc.saveas(filename);

application.MessageBox('الإخراج ناجح!','مربع المطالبة',mb_ok);

أخيراً

WordDoc.Saved:=true;

WordDoc.Close;

WordApp.Quit;

نهاية؛

نهاية؛