باستخدام طريقة CreateOleBject مزايا متأصلة لعمليات وثيقة Word. برنامج عمليات وثيقة كلمة.
فيما يلي التجربة التي أجريتها على هذا الجهاز ، وتكوين برنامج الجهاز كما يلي:
Windows XP+Delphi7.0+Office 2003
هذا البرنامج بسيط للغاية. البرنامج عندما يتم إغلاق البرنامج.
الوحدة الرئيسية ؛
واجهة
// إذا كنت ترغب في استخدام CreateOleObject للعمل على مستند Word ، فيجب عليك استخدامه
// قم بتضمين بيان comobj وبيان WordXP في البيان
يستخدم
Windows ، الرسائل ، sysutils ، المتغيرات ، الفئات ، الرسومات ، عناصر التحكم ، النماذج ،
comobj ، wordxp ، مربعات الحوار ، stdctrls ؛
يكتب
tform1 = فئة (tform)
Button1: Tbutton ؛
EDIT1: TEDIT ؛
الإجراءات button1click (المرسل: tobject) ؛
Formcreate الإجراء (المرسل: TOBJECT) ؛
الإجراء FormClose (المرسل: TOBJECT ؛ VAR ACTION: TCLOSEACTION) ؛
// الإجراء button2click (المرسل: tobject) ؛
خاص
{إعلانات خاصة}
عام
{الإعلانات العامة}
نهاية؛
var
Form1: Tform1 ؛
// إعلان هذين المتغيرين كمتغيرات عالمية
FWOWN: البديل ؛
FDOC: البديل.
تطبيق
{$ r *.dfm}
الإجراء tform1.button1click (المرسل: tobject) ؛
يبدأ
form.selection.typeparagraph ؛
form.selection.tepetext (النص: = form1.edit1.text) ؛
نهاية؛
الإجراء tform1.formcreate (المرسل: tobject) ؛
يبدأ
// قم أولاً بإنشاء الكائن وإعطاء موجه في حالة حدوث استثناء
يحاول
FOWHER: = createOleObject ('Word.Application') ؛
// هل تنفيذ برنامج Word مرئي؟
form.visible: = false ؛
يستثني
showMessage ("إنشاء كائن كلمة فشل!") ؛
مخرج؛
نهاية؛
// أولاً قم بإنشاء صفحة جديدة في الكلمة المفتوحة ، ثم اكتب "Hello" ، + Enter + "World!"
يحاول
FDOC: = ford.documents.add ؛
form.selection.tepetext (النص: = 'hello ،') ؛
form.selection.typeparagraph ؛
form.selection.tepetext (النص: = 'World!') ؛
يستثني
على E: استثناء تفعل
ShowMessage (E.Message) ؛
نهاية؛
نهاية؛
// احفظ محتويات الملف إلى الدليل الحالي عند إغلاق البرنامج وتسميته على اسم test.doc
// إغلاق برنامج الكلمات في نفس الوقت
الإجراء tform1.formClose (المرسل: tobject ؛ var الإجراء: tcloseaction) ؛
يبدأ
fdoc.saveas (extractFilePath (application.exename) +'test.doc') ؛
FWOWN.QUIT ؛
FOWHER: = غير معروف ؛
نهاية؛
نهاية.
بالإضافة إلى ذلك ، فإن العمليات على ملفات المكاتب الأخرى متشابهة نسبيًا ، لذلك لن أخوض في التفاصيل. يمكن أن تكمل هذه الطريقة أيضًا عمليات مستند أكثر تعقيدًا من خلال الإشارات إلى وحدات الماكرو VBA أكثر تعقيدًا في ملفات الكلمات.