كيفية إنشاء مربعات الإدخال والرسائل في مستند Word باستخدام VBA؟

التحديث الأخير: يوليو 2020 ؛ قابلية التطبيق: Office 365 ، 2019 ، 2016 ، 2013.

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

كما يوحي الاسم ، فإن مربع الرسالة هو جزء من المعلومات يتم عرضه لمستخدمي المستند. مربعات الإدخال مفيدة في التقاط المعلومات من المستخدم.

يحتوي هذا المنشور على جميع المعلومات وعينات التعليمات البرمجية التي ستحتاج إليها لإنشاء مستندات تعمل بكامل طاقتها باستخدام رسائل Visual Basic for Applications (VBA) ومربعات إدخال لبرنامج Microsoft Word.

كيفية إضافة كود VBA إلى Word؟

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

• أولاً ، امض قدمًا وقم بتمكين علامة التبويب Developer .
• الآن ، اضغط على  زر  Visual Basic من علامة التبويب Developer  . سيؤدي هذا إلى فتح محرر Visual Basic.

• قم بتمييز المستند الخاص بك.
• انقر فوق  إدراج  ثم حدد  الوحدة النمطية .

• انسخ الكود الذي نقدمه أدناه إلى الوحدة التي أنشأتها للتو في الوحدة النمطية الخاصة بك.
• انقر فوق حفظ. أدخل اسمًا إلى المستند الخاص بك إذا طُلب منك ذلك.
• أغلق محرر Visual Basic.

مربعات الرسائل رمز VBA

بناء الجملة:

MsgBox (موجه ، أزرار ، عنوان ، ملف تعليمات ، سياق)

شرح النحو:

استدعى:

مطلوب. إنها المعلومات التي يمكن إعطاؤها للمستخدم. يجب إدراجه داخل  علامة الاقتباس المزدوجة .

أزرار:

اختياري. الأزرار هي تلك الأنواع من الأزرار التي يتم إعطاؤها لمعلومات المستخدمين. هناك العديد من الأزرار المتاحة لـ MsgBox () ويمكن العثور عليها في الصور أدناه.

عنوان:

اختياري. إنه عنوان المعلومات المعطاة للمستخدم. إذا لم يتم تقديمه ،  فسيكون Microsoft word  هو العنوان الافتراضي.

ملف التعليمات والسياق:

• اختياري. سيحدد ملف التعليمات ملف التعليمات المتاح في القرص المحلي والذي يمكن توفيره كمساعدة في مربع حوار
• اختياري. السياق هو تعبير رقمي يستخدم لتعريف موضوع التعليمات بالرقم الفريد.

نموذج رمز مربع الرسالة

'VBA
Sub messagebox()

'Variables assigned

Dim buttonclick As VbMsgBoxResult

'Message box to display information to user

MsgBox "Hi, Visual Basic is easy to work with", vbExclamation, "VBA"

'Message box to ask question to user with yes or no question
buttonclick = MsgBox("Do you like VBA?", vbQuestion + vbYesNo, "VBA")
If buttonclick = vbYes Then
MsgBox "Yes, they are great!", vbExclamation, "VBA"
Else
MsgBox "Why not? They are great!", vbCritical, "VBA"
End If

End Sub

انتاج:

مربعات الحوار والإدخال رمز VBA

مربع الإدخال عبارة عن مربع حوار بسيط يتيح لنا مطالبة المستخدم ببعض المعلومات. دعونا نتعرف على كود فبا باستخدام مثال.

بناء الجملة:

InputBox (موجه ، عنوان ، افتراضي ، XPos ، YPos ، ملف التعليمات ، HelpContextId ، النوع)

شرح النحو:

استدعى:

مطلوب. إنها المعلومات التي يمكن إعطاؤها للمستخدم. يجب إدراجه داخل  علامة الاقتباس المزدوجة .

عنوان:

اختياري. إنه عنوان المعلومات المعطاة للمستخدم. إذا لم يتم تقديمه ،  فسيكون Microsoft word  هو العنوان الافتراضي.

تقصير:

اختياري. يعرض القيمة الافتراضية داخل مربع النص ، قبل أن يكتب المستخدم قيمة. إذا لم يتم تحديده ، فسيكون مربع النص فارغًا.

XPos:

اختياري. يتم استخدامه كموضع على المحور X. من اليسار الى اليمين

YPos:

اختياري. يتم استخدامه كموضع على المحور ص. من الأعلى إلى الأسفل

ملف التعليمات ومعرف نص التعليمات:

• اختياري. سيحدد ملف التعليمات ملف التعليمات المتاح في القرص المحلي والذي يمكن توفيره كمساعدة في مربع حوار
• اختياري. معرف HelpContext هو رقم معرف ملف التعليمات.

كود صندوق الإدخال:

'VBA
Sub macro()

'Variables assigned
Dim a As Long
Dim b As Long

'Input box to get value from user

a = InputBox("Enter a value for a", "Question 1")
b = InputBox("Enter a value for b", "Question 2")

'Answer displayed in a message box
MsgBox ("Answer is " & Val(a) + Val(b))
End Sub

انتاج: