سم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
طريقة إرسال البيانات من البرنامج إلى الوورد
أولاً : نفتح ملف الوورد ثم نقوم بوضع المؤشر في المكان
المراد نقل البيانات له وبعد ذلك تفتح القائمة "إدراج" وثم
الإختيار من القائمة "إشارة مرجعية" وثم تضع اسم للإشارة
المرجعية ويمكنك وضع أكثر من إشارة مرجعية في نفس المستند .
ثانياً : نفتح الفجوال بيسك ثم تقوم بـفتح القائمة project
قم تقم بإختيار References وتضيف المكتبة التاليــــــة
Microsoft Word XX.X Object Library
حيث يمثل XX.X رقم الإصدار وتنقر على Ok وتقوم بعد ذلك
بإضافة مربعين نص الأول للإسم والثاني للرقم و زر لإرسال البيانات للوورد
ثم تقوم بتعريف الوورد في الجنرال بالكود التالي
Dim MyWord As Word.Application
وثم تقوم بإضافة الكود التالي في زر إرسال البيانات إلى الوورد
Set MyWord = CreateObject("Word.Application")
MyWord.Documents.Open App.Path & "\Word.doc"
MyWord.ActiveDocument.Bookmarks("Name").Select
SeWord.Selection.InsertAfter Text1.Text
MyWord.ActiveDocument.Bookmarks("Num").Select
MyWord.Selection.InsertAfter Text2.Text
MyWord.Visible = Trueفي السطر الأول نقوم بتعريف المتغير MyWord على أنه برنامج الوورد
في السطر الثاني تقوم بإختيار مستند الوورد المحفوظ مسبقاً
في السطر الثالث تقوم بتحديد الإشارة المرجعية في مستند الوورد
في السطر الرابع تقوم بـإضافة النص بعد الإشارة المرجعية
وهكذا في السطر الخامس والسادس
وفي السطر السابع نقوم بعرض مستند الوورد
والصور توضح الشرح طريقة إضافة المكتبة و عمل الفورم والكود
وهنا طريقة وضع إشارة مرجعية في مستند الوورد
وفي المرفقات مثال عما سبق عمله
الرجاء الدعاء لي ولوالدي بالصلاح و بالجنة
ولا تنسوا أن تشكروني لنستمر في العطاء
وأي إستفسار أنا حاضر وأرجوا من المشرف التثبيت
