,
// احصل على البيانات من ملف Word
الإجراء getWordStr;
فار WordApp: TWordapplication؛
WordDoc: TWordDocument;
DocInx،oFileName،CfCversions،oReadOnly،AddToRctFiles،PswDocument،
PswTemplate,oRevert,wpswDocument,WPswTemplate,oFormat: OleVariant;
i,iRow,iCol:integer;
myCell:Cell;
myRow:Row;
يبدأ
memo1.Lines.Clear;
// ===== إنشاء كائن =====
إذا لم يتم تعيينه (WordApp) إذن
يبدأ
WordApp:= TWordApplication.Create(nil);
WordApp.Visible := false;
نهاية؛
إذا لم يتم تعيينه (WordDoc) إذن
WordDoc:= TWordDocument.Create(nil);
يحاول
DocInx:=1;
oFileName := 'd:/test.doc';
oReadOnly:=true;
CfCversions := EmptyParam;
AddToRctFiles:= EmptyParam;
PswDocument:= EmptyParam;
PswTemplate:= EmptyParam;
oRevert:= 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.Close;
WordDoc.Disconnect;
WordDoc.Destroy;
WordDoc := لا شيء;
نهاية؛
إذا تم تعيينه (WordApp) ثم // ===== أغلق Word =====
يبدأ
WordApp.Quit;
WordApp.Disconnect;
WordApp.Destroy;
WordApp := لا شيء;
نهاية؛
نهاية؛
نهاية؛