-
//รับข้อมูลจากไฟล์ Word
ขั้นตอน getWordStr;
var WordApp: TWordapplication;
WordDoc: TWordDocument;
DocInx, oFileName, CfCversions, oReadOnly, AddToRctFiles, PswDocument,
PswTemplate, oRevert, wpswDocument, WPswTemplate, o รูปแบบ: OleVariant;
ฉัน, iRow, iCol: จำนวนเต็ม;
myCell:เซลล์;
myRow: แถว;
เริ่ม
memo1.Lines.ชัดเจน;
// ===== สร้างวัตถุ =====
หากไม่ได้รับมอบหมาย (WordApp) แล้ว
เริ่ม
WordApp:= TWordApplication.Create(ไม่มี);
WordApp.Visible := เท็จ;
จบ;
หากไม่ได้รับมอบหมาย (WordDoc) แล้ว
WordDoc:= TWordDocument.Create (ไม่มี);
พยายาม
เอกสาร:=1;
oFileName := 'd:/test.doc';
oอ่านอย่างเดียว:=จริง;
CfCversions := EmptyParam;
AddToRctFiles:= EmptyParam;
PswDocument:= EmptyParam;
PswTemplate:= EmptyParam;
oย้อนกลับ:= EmptyParam;
WPswDocument:= EmptyParam;
WPswTemplate:= EmptyParam;
oFormat:= EmptyParam;
// ===== เปิดไฟล์ =====
WordApp.Documents.open(oFileName,CfCversions,oReadOnly,AddToRctFiles,
PswDocument,PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat);
// ===== ไฟล์ที่เกี่ยวข้อง =====
WordDoc.ConnectTo(WordApp.Documents.Item(DocInx));
//วิธีการ (1): รับเนื้อหาอักขระของข้อความทั้งหมด รวมถึงตารางด้วย
s := WordDoc.Range.text;
//วิธีการ (2): ใช้เวลา 1-4 ตัวอักษร รวมทั้งตารางด้วย
myRange:=WordDoc.Range;
myRange.Start:=0;
myRange.End_ :=4;
ในที่สุด
ถ้าได้รับมอบหมาย (WordDoc) แล้ว // ===== ปิดไฟล์ =====
เริ่ม
WordDoc.ปิด;
WordDoc.Disconnect;
WordDoc.ทำลาย;
WordDoc := ไม่มี;
จบ;
ถ้าได้รับมอบหมาย (WordApp) แล้ว // ===== ปิด Word =====
เริ่ม
WordApp.ออก;
WordApp.ตัดการเชื่อมต่อ;
WordApp.ทำลาย;
WordApp := ไม่มี;
จบ;
จบ;
จบ;