ตัวอย่าง Delphi และ Word 1

//================== รหัส Word_VBA====================//

ย่อยในWord()

หรี่ myTable เป็นตาราง

หรี่ myBox, myPict, myShape As Shape

'วาดรูปสี่เหลี่ยมอันแรก

ตั้งค่า myBox = ActiveDocument.Shapes.AddTextbox(Orientation:=1, Left:=90, Top:=70, width:=414, Height:=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, ซ้าย:=180, บน:=80, กว้าง:=65, ความสูง:=80)

'วาดภาพที่สอง'

ตั้งค่า myPict = ActiveDocument.Shapes.AddPicture("D:/test/test/load_jpg1/photo/108259.jpg", _

LinkToFile:=False, SaveWithDocument:=True, ซ้าย:=262, บน:=80, กว้าง:=65, ความสูง:=80)

'ชื่อ

ตั้งค่า myShape = ActiveDocument.Shapes.AddTextbox(Orientation:=1, Left:=108, Top:=198, width:=126, Height:=18)

myShape.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "ชื่อ: ชินโนะสุเกะ"

'อายุ

ตั้งค่า myShape = ActiveDocument.Shapes.AddTextbox(Orientation:=1, Left:=108, Top:=225, width:=126, Height:=18)

myShape.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "อายุ: 12"

'ข้อมูลส่วนบุคคล

ตั้งค่า myShape = ActiveDocument.Shapes.AddTextbox(Orientation:=1, Left:=351, Top:=90, width:=126, Height:=99)

myShape.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "ข้อมูลส่วนบุคคล"

'เพิ่มตารางลงในกล่องข้อความ'

ตั้งค่า myShape = ActiveDocument.Shapes.AddTextbox(Orientation:=1, Left:=288, Top:=198, width:=189, Height:=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 = "120cm"

myTable.Cell(3, 1).Range.Text = "นั่งให้สูง"

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

จบย่อย

//================== รหัสเดลฟี====================//

ขั้นตอนในเดลฟี;

var

WordApp,WordDoc,WordTable,wordShape:OleVariant; // se:การเลือก;

ชื่อไฟล์:สตริง;

เริ่ม

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

SaveDialog1.ดำเนินการ;

ตนเองรีเฟรช;

ชื่อไฟล์:=savedialog1.FileName;

ถ้า length(ชื่อไฟล์)=0 แล้ว

เริ่ม

application.MessageBox('ไม่ได้เลือกตำแหน่งที่เก็บข้อมูลของไฟล์สถิติ และไม่สามารถบันทึกข้อมูลทางสถิติได้! ','กล่องพร้อมท์',mb_ok);

ออก;

จบ;

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

WordApp.Visible:=จริง;

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, ซ้าย:=180, บน:=80, กว้าง:=65, ความสูง:=80);

//วาดภาพที่สอง

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

LinkToFile:=False, SaveWithDocument:=True, ซ้าย:=262, บน:=80, กว้าง:=65, ความสูง:=80);

//วาดกล่องชื่อ

wordShape:=worddoc.Shapes.AddTextbox(การวางแนว:=1, ซ้าย:=108, บน:=198, ความกว้าง:=126, ความสูง:=18);

wordShape.Line.Visible := เท็จ;

wordShape.TextFrame.TextRange.Text := 'ชื่อ: ชินโนะสุเกะ';

//กล่องอายุ

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

wordShape.Line.Visible := เท็จ;

wordShape.TextFrame.TextRange.Text := 'อายุ: 12';

//กล่องข้อมูลส่วนตัว

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

wordShape.Line.Visible := เท็จ;

wordShape.TextFrame.TextRange.Text := 'ข้อมูลส่วนบุคคล';

//เพิ่มตารางลงในกล่องข้อความ

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

wordShape.Line.Visible := เท็จ;

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(ชื่อไฟล์);

application.MessageBox('ส่งออกสำเร็จ!','กล่องพร้อมท์',mb_ok);

ในที่สุด

WordDoc.Saved:=true;

WordDoc.ปิด;

WordApp.ออก;

จบ;

จบ;