إنشاء مستند Word في VisualBasic6.0

الملخص : تحلل هذه المقالة بنية نموذج كائن Word، وخاصة كائن المستند واستخدامه، وتقترح طريقة لإنشاء مستندات بتنسيق Word في Visual Basic، وتعطي مثالاً تطبيقيًا لهذه الطريقة.

الكلمات الأساسية : VisualBasic، نموذج كائن Word، المستند

مقدمة

يعد مستند Word أحد تنسيقات المستندات الأكثر استخدامًا في العمل الفعلي والدراسة.

مع تحسن المعلوماتية الاجتماعية، تحولت بعض المهام التي كانت تتم يدويًا تقليديًا تدريجيًا إلى أجهزة الكمبيوتر. يعد نظام التشغيل التلقائي للكمبيوتر مثالًا نموذجيًا. من أجل تحقيق كفاءة أعلى، يطلب بعض مستخدمي نظام الفحص الآلي بالكمبيوتر أن يقوم البرنامج بإخراج أوراق الامتحان بتنسيق Word للطباعة المباشرة دون التنضيد.

نظرًا لشعبية مجموعة Microsoft Office، أصبح استخدام المستندات مثل مستندات Word ومستندات جداول البيانات والشرائح الإلكترونية أمرًا شائعًا بشكل متزايد. على الرغم من إمكانية تحويل المستندات من البرامج المختلفة في Office بسهولة، إلا أن هذا التحويل يأتي على حساب فقدان التنسيق الأصلي للمستند. على سبيل المثال، في نظام الفحص التلقائي، يمكن إنشاء أوراق الاختبار المخزنة في قاعدة بيانات الوصول إلى مستندات Word من خلال وظيفة التصدير التي يوفرها Access، ولكن المستندات التي تم إنشاؤها غير منسقة وتتطلب الكثير من الوقت لإعادة ترتيبها لتلبية احتياجات المستخدم. متطلبات شكل ورقة الاختبار.

ردًا على هذه المشكلة، تتناول هذه المقالة دراسة نموذج كائن Word وتقترح طريقة لاستخدام نموذج الكائن لإنشاء مستند Word بتنسيق محدد يلبي متطلبات المستخدم.

نموذج كائن الكلمة

1. التسلسل الهرمي لنموذج كائن الكلمة

الكائنات هي حجر الزاوية في Visual Basic، وترتبط كل عملية في Visual Basic تقريبًا بتعديل الكائنات. يمكن تمثيل أي عنصر من عناصر Word (مثل المستندات والجداول والفقرات والحقول والإشارات المرجعية وما إلى ذلك) بواسطة كائنات في Visual Basic.

يمثل الكائن عنصر Word، مثل مستند أو فقرة أو إشارة مرجعية أو حرف فردي. المجموعة هي أيضًا كائن يحتوي على عدة كائنات أخرى، عادةً من نفس النوع، على سبيل المثال، يمكن أن يحتوي كائن المجموعة على كافة كائنات الإشارة المرجعية في المستند. باستخدام الخصائص والأساليب، يمكنك تعديل كائنات فردية أو مجموعات كاملة من الكائنات.

يوفر Microsoft WordVisualBasic مجموعة كاملة من نماذج كائنات Word، وهي تسلسل هرمي للكائنات مع التطبيق ككائن المستوى الأعلى. يظهر هيكلها في الشكل 1.

->->

تتكون الكائنات من نوعين من الأعضاء، أحدهما خصائص، والثاني طرق.

الخاصية هي خاصية لكائن ما أو جانب من سلوك الكائن. على سبيل المثال، تتضمن خصائص المستند الاسم والمحتوى وحالة الحفظ وما إذا كانت المراجعات ممكنة. لتغيير خصائص كائن ما، يمكنك تعديل قيم خصائصه. لتعيين قيمة خاصية ما، اتبع الكائن بنقطة، واسم الخاصية، وعلامة المساواة، وقيمة الخاصية الجديدة. يمكّن المثال التالي تعقب التغييرات في مستند "MyDoc.doc".

->المستندات("MyDoc.doc").TrackRevisions=True->

الأساليب هي الإجراءات التي يمكن للكائن تنفيذها. على سبيل المثال، تحتوي كائنات المستند على أسلوب PRintOut عندما يمكن طباعة المستند. تحتوي الطرق عادةً على معلمات تحدد كيفية تنفيذ الإجراء. يقوم المثال التالي بطباعة الصفحات الثلاث الأولى من المستند النشط.

->ActiveDocument.PrintOutFrom:=1,إلى:=3->

في معظم الحالات، الأساليب هي الإجراءات والخصائص هي الخصائص. سيؤدي استخدام الأساليب إلى حدوث شيء ما للكائن، بينما سيؤدي استخدام الخصائص إلى إرجاع معلومات حول الكائن، أو يتسبب في تغيير بعض خصائص الكائن.

2. كائن المستند وكائن جمع المستندات

في Visual Basic، يمكنك استخدام أساليب كائن المستند أو كائن مجموعة المستندات لتعديل الملفات. كائن المستند هو الكائن الرئيسي المستخدم في هذه المقالة لإنشاء مستندات Word.

يظهر الشكل 2 هيكل مجموعة كائنات المستندات (المستند) (أو المستند) في نموذج كائن Word.

->->

سيكون كائن مجموعة الفقرات وكائن PageSetup هما الأبطال أدناه. كائن مجموعة الفقرات عبارة عن مجموعة من كائنات الفقرة في تحديد أو نطاق أو مستند. يمثل كائن PageSetup وصف إعداد الصفحة. يحتوي كائن PageSetup على كافة خصائص إعداد الصفحة للمستند (الهامش الأيسر، الهامش السفلي، حجم الورق، وما إلى ذلك).

على أساس التعرف على نموذج كائن Word، يمكننا استخدام كائن المستند لإجراء عمليات مختلفة على مستندات Word، مثل:

2.1 إنشاء مستند جديد

تحتوي مجموعة المستندات على كافة المستندات المفتوحة. لإنشاء مستند جديد، استخدم الأسلوب Add لإضافة كائن مستند إلى مجموعة المستندات.

إحدى الطرق لإنشاء مستند جديد هي استخدام الأسلوب Add. سيعيد الأسلوب Add كائن مستند، والذي يشير إلى المستند الجديد. في المثال التالي، يتم تعيين كائن المستند الذي تم إرجاعه بواسطة الأسلوب Add إلى متغير كائن newDoc. ثم قم بتعيين العديد من الخصائص والأساليب لكائن المستند. يمكن التحكم في المستندات الجديدة بسهولة من خلال متغير الكائن newDoc.

->SetnewDoc=Documents.Add

WithnewDoc

.Content.Font.Name = "Arial"

.SaveAsFileName:="Sample.doc"

نهاية مع->

2.2 افتح المستند

لفتح مستند موجود، استخدم الأسلوب Open لمجموعة المستندات. يفتح التعليمة البرمجية التالية مستندًا باسم MyDocument.doc (الموجود في المجلد "MyFolder").

->Documents.OpenFileName:="C:/MyFolder/MyDocument.doc"->

2.3 حفظ مستند موجود

لحفظ مستند، استخدم أسلوب الحفظ الخاص بكائن المستند. التعليمة البرمجية التالية بحفظ مستند يسمى Sales.doc.

->المستندات("Sales.doc").حفظ->

إذا قمت بتطبيق أسلوب الحفظ على مجموعة المستندات، فيمكنك حفظ جميع المستندات المفتوحة. الكود أدناه يحفظ جميع المستندات المفتوحة.

->المستندات.حفظ->

2.4 حفظ مستند جديد

لحفظ مستند، استخدم الأسلوب SaveAs لكائن المستند. التعليمة البرمجية التالية بحفظ المستند النشط في المجلد الحالي المسمى "Temp.doc".

->ActiveDocument.SaveAsFileName:="Temp.doc"->

يمكن أن تحتوي المعلمة FileName على اسم الملف أو المسار الكامل فقط (على سبيل المثال، "C:/Documents/TemporaryFile.doc").

2.5 أغلق المستند

لإغلاق مستند واحد، استخدم الأسلوب Close الخاص بكائن المستند. يقوم التعليمة البرمجية التالية بإغلاق وحفظ المستند المسمى Sales.doc.

->المستندات("Sales.doc").CloseSaveChanges:=wdSaveChanges->

يمكن إغلاق جميع المستندات باستخدام طريقة الإغلاق الخاصة بمجموعة المستندات. يقوم التعليمة البرمجية التالية بإغلاق كافة المستندات دون حفظ التغييرات.

->Documents.CloseSaveChanges:=wdDoNotSaveChanges->

إنشاء مستند Word في Visual Basic

1. قم بإنشاء كائن مستند في Visual Basic

يبدأ كل العمل بكائن المستند أولاً، قم بإنشاء مثيل لكائن المستند في Visual Basic، ثم يمكنك تنفيذ عناصر تحكم متنوعة على المثيل:

->ديمنيودوكأسوورد.وثيقة

SetnewDoc=newWord.Document->

بمجرد إنشاء كائن المستند، يمكنك تعيين التنسيق الافتراضي للمستند عن طريق تعيين الخط وتباعد الأسطر والخصائص الأخرى للكائن الفرعي للمحتوى:

->WithnewDoc

.Content.Font.Name = "宋体"

.المحتوى.الخط.الحجم=12

.Content.Paragraphs.LineSpacing=15.5

نهاية مع->

وينتج عن هذا مستند Word فارغ.

2. أضف نصًا إلى مستند Word

بعد ذلك، قم بإضافة نص إلى المستند الفارغ، وسوف تستخدم كائن مجموعة الفقرات للقيام بذلك. يقوم الأسلوب InsertAfter بإدراج النص بعد كائن التحديد أو النطاق؛ ويقوم الأسلوب InsertBefore بإدراج النص قبل كائن التحديد أو النطاق. يقوم التعليمة البرمجية التالية بإضافة فقرة وتنسيقها إلى نهاية المستند:

->WithnewDoc

.Content.InsertAfter "فقرة نموذجية..."

.الفقرات(NewDoc.Paragraphs.count).Alignment=wdAlignParagraphCenter

.الفقرات(NewDoc.Paragraphs.count).Range.Font.Bold=True

.الفقرات(NewDoc.Paragraphs.count).Range.Font.Size=28

نهاية مع->

يمكن استخدام الفقرات (الفهرس) لإرجاع كائن فقرة، حيث يكون الفهرس هو رقم الفهرس؛ وتشير قيمة سمة العد إلى عدد كائنات الفقرة في جزء النص الرئيسي من المستند. NewDoc.Paragraphs.count هو بالضبط رقم فهرس فقرة النص التي تتم إضافتها حاليًا.

إذا كنت بحاجة إلى إدراج جدول، يمكنك استخدام كائن الجدول. يمكن لأسلوب الإضافة إضافة جدول جديد ضمن النطاق المحدد. يضيف المثال التالي جدول 3x4 في بداية المستند النشط.

->SetmyRange=ActiveDocument.Range(البداية:=0، النهاية:=0)

ActiveDocument.Tables.AddRange:=myRange,NumRows:=3,NumColumns:=4->

يمكن الحصول على الجداول باستخدام أحرف الجدولة. يقوم التعليمة البرمجية التالية بإدراج جدول 1x4 في نهاية المستند.

->NewDoc.Content.InsertAfter"Score"&vbTab&""&vbTab&"Evaluator"&vbTab&""&vbCr->

يظهر الجدول الذي تم إنشاؤه في الشكل 3:

->->

3. إعدادات الصفحة

بعد إضافة كافة الفقرات إلى المستند، يمكنك استخدام كائن PageSetup لإعداد الصفحة. ويجب أن يتم ذلك عن طريق تعيين خصائص مختلفة لكائن PageSetup.

3.1 ضبط الأعمدة وتباعد الأعمدة:

->newDoc.PageSetup.TextColumns.SetCountNumColumns:=2

newDoc.PageSetup.TextColumns.Spacing=CentimetersToPoints(2)->

3.2 ضبط هوامش الصفحة:

->WithnewDoc.PageSetup

.TopMargin=CentimetersToPoints(4.5)

.BottomMargin=CentimetersToPoints(1.5)

.LeftMargin=CentimetersToPoints(0.8)

.RightMargin=CentimetersToPoints(2)

نهاية مع->

3.3 ضبط حجم الورق:

->WithnewDoc.PageSetup

.PageHeight=CentimetersToPoints(28.1)

.PageWidth=CentimetersToPoints(38.9)

نهاية مع->

لن يتم وصف عناصر الإعداد الأخرى بالتفصيل.

4. وثائق الإخراج

بالنسبة للمستند الذي تم إنشاؤه، يمكننا اختيار حفظه كملف قرص أو طباعته مباشرة:

->newDoc.SaveAsFileName:="Sample.doc"

newDoc.PrintOut->

أمثلة التطبيق

يتم تطبيق الطريقة المذكورة أعلاه في نظام الفحص الآلي للكمبيوتر الذي طوره المؤلف لقسم التنظيم في لجنة الحزب البلدية. تظهر عملية النظام في الشكل 4.

->->

يلزم استخدام أوراق الاختبار التي تم إنشاؤها بواسطة هذا النظام مباشرة في الاختبار لتقييم واختيار الكوادر الشعبية. أولاً، يقوم صانع الأسئلة بإدخال معلمات ورقة الاختبار، أي قواعد تكوين ورقة الاختبار، ثم يقوم البرنامج تلقائيًا بتكوين الورقة. ورقة الاختبار وإخراج ورقة الاختبار بتنسيق Word. نظام البرمجيات الذي طوره المؤلف باستخدام الطريقة المذكورة أعلاه يلبي احتياجات المستخدم بالكامل. لقد تم الآن تشغيل النظام، مما أدى إلى تحسين كفاءة العمل بشكل كبير وحاز على الثناء من المستخدمين.

خاتمة

تعتمد طريقة إنشاء مستندات Word في Visual Basic المقترحة في هذه المقالة على طراز الكائن وهي عملية للغاية ويمكن استخدامها أيضًا في منصات التطوير الأخرى التي تدعم ActiveX. ->