كيفية إضافة نص تلقائيًا إلى رأس المستند في Microsoft Word باستخدام VBA

كيفية إضافة نص تلقائيًا إلى رأس المستند في Microsoft Word باستخدام VBA

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





اجعل فيديو اليوم

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



إضافة نص تلقائيًا إلى عنوان المستند باستخدام VBA في Word

VBA أو Visual Basic للتطبيقات هو شكل متكامل من Visual Basic يستخدم في تطبيقات Microsoft Office. يسمح لك VBA بكتابة أكواد لإنشاء وحدات ماكرو ، والتي بدورها تقوم بأتمتة المهام التي قد يتعين عليك القيام بها يدويًا. يتيح لك VBA أيضًا إنشاء الأزرار والميزات المخصصة الخاصة بك لبرنامج Microsoft Word.





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

كيفية تحديث خدمات جوجل بلاي

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



1. الوصول إلى علامة تبويب المطور

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

مع هذا ، سيتعين عليك تمكين علامة تبويب Developer من الخيارات. بالطبع ، إذا كنت قد استخدمت وحدات الماكرو من قبل ، فستكون علامة التبويب Developer متاحة بالفعل ، لذلك ليست هناك حاجة للقيام بذلك مرة أخرى. إذا كانت هذه هي المرة الأولى التي تعمل فيها مع وحدات الماكرو و VBA في برامج Office ، فمن الجيد قراءة دليلنا كيفية بدء استخدام وحدات الماكرو في Word .



إعدادات شريط Word
  1. في Microsoft Word ، انتقل إلى ملف ملف قائمة.
  2. يختار خيارات . سيؤدي هذا إلى فتح نافذة خيارات Word.
  3. في ال خيارات Word نافذة ، حدد تخصيص الشريط .
  4. على اليمين ، تحت علامات التبويب الرئيسية ، قم بالتمرير لأسفل وتحقق مطور .
  5. انقر نعم .

سترى الآن علامة التبويب المطور في الشريط ، بين العرض والتعليمات مباشرة.

2. إنشاء الماكرو

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



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

قائمة الماكرو في Word
  1. اذهب إلى مطور التبويب.
  2. انقر فوق وحدات الماكرو من شفرة الجزء.
  3. أدخل اسمًا للماكرو الخاص بك. سنقوم بتسمية لنا muoHeading .
  4. انقر فوق خلق .
ماكرو فارغ في Word

بمجرد النقر فوق خلق ، ستفتح نافذة جديدة تحتوي على سطرين من التعليمات البرمجية وخط معلومات. يحدد سطور Sub و End Sub بداية ونهاية كود الماكرو الخاص بك. أدخل الرمز أدناه بين السطرين:

Dim headerRange As Range 
Dim headerText As String 
 Set headerRange = ActiveDocument.Sections.Item(1).Headers(wdHeaderFooterPrimary).Range 
headerRange.Text = "Written and Published by MUO" 
headerRange.Font.Bold = True 
headerRange.ParagraphFormat.Alignment = wdAlignParagraphCenter

تعلن عبارة Dim في هذا الكود عن ملف headerRange و headerText المتغيرات مثل أ نطاق و أ سلسلة على التوالى. بعد ذلك ، ملف تعيين بيان يحدد ال headerRange متغير إلى عنوان المستند النشط الحالي.

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

بمجرد إعلان هذين ، فإن headerRange تم تعيين النص على النص الذي نريده. في السطر التالي ، يتم تعيين الخط ليكون غامقًا ، ثم في السطر الأخير ، يتم تعيين محاذاة الفقرة إلى المركز. تشير المعلمات التي تبدأ بـ 'wd' إلى أن المعلمة حصرية لـ Microsoft Word.

ال الفرعية و End Sub لم يتم تضمين الرموز في هذا المقتطف أعلاه ، حيث من المفترض أن تقوم بلصق الرمز من المقتطف بين هذين. يجب أن يبدو الرمز النهائي الخاص بك مثل الصورة أدناه:

ماكرو إدراج نص الرأس لـ Word

3. استخدام الماكرو

بمجرد إعداد الشفرة ، تكون جاهزًا لاستخدام الماكرو. ليست هناك حاجة لحفظه ؛ يتم حفظ أي شيء تكتبه في مساحة عمل VBA على الفور. حان الوقت الآن لإعداد اختصار للماكرو ومعرفة ما إذا كان يعمل!

  1. اذهب إلى ملف قائمة.
  2. يختار خيارات .
  3. يختار تخصيص الشريط .
  4. انقر فوق يعدل أو يكيف بجوار اختصارات لوحة المفاتيح في الجزء السفلي من النافذة. سيؤدي هذا إلى فتح نافذة تخصيص لوحة المفاتيح.
  5. في ال تخصيص لوحة المفاتيح نافذة ، قم بالتمرير لأسفل في ملف فئات قائمة واختيار وحدات الماكرو .
  6. في القائمة اليمنى ، حدد الماكرو الخاص بك.
  7. انقر فوق مربع النص الموجود أسفل ، اضغط على مفتاح الاختصار الجديد .
  8. أدخل مجموعة المفاتيح على لوحة المفاتيح. إنها فكرة جيدة للاستخدام كنترول و كل شىء ، و تحول في نفس الوقت. بهذه الطريقة ، قد لا تكون المجموعة مستخدمة بالفعل. سوف نستخدم كل شىء + كنترول + تحول + ح .
  9. انقر فوق ثم انقر فوق نعم .

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

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

أتمتة سير العمل الخاص بك

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

ألعاب للعب على التلفزيون مع الهاتف

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

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