كيف تبدأ استخدام وحدات الماكرو في Word

هل سئمت من أداء المهام المتكررة في Microsoft Word؟ مدفون داخل البرنامج هو أداة أتمتة قوية يمكنها أن تزيل هذه المهام عن يديك. نحن نتحدث عن وحدات الماكرو ، وعلى الرغم من أن الميزة تعتمد على Visual Basic for Applications (VBA) من Microsoft ، إلا أنه يمكنك استخدامها حتى إذا كانت فكرة الترميز تمنحك heebie-jeebies.

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

سنعرض لك هنا مثالًا بسيطًا ولكنه مفيد: كيفية أتمتة وظيفة البحث والاستبدال في Word.

تسجيل الماكرو

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

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

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

الآن دعونا ننشئ الماكرو الخاص بنا.

1. انقر المطور> تسجيل ماكرو.
2. سيُطلب منك تسمية الماكرو. أدخل “ChangeSocietyName” أو أي اسم آخر يناسبك. عند تسمية وحدات الماكرو ، تجنب المسافات والنقاط وعلامات التعجب والأحرف الخاصة ، وإلا فستتلقى رسالة خطأ. يمكنك استخدام الأرقام ، لكن يجب أن يكون الحرف الأول حرفًا.
3. يمكنك تعيين الماكرو إلى زر و / أو اختصار لوحة مفاتيح ، لكن هذا ليس شرطًا. إذا اخترت Button ، فسيتيح لك Word إضافته إلى شريط أدوات الوصول السريع. يمكنك أيضًا إضافة وصف موجز للماكرو.
4. انقر موافق، وسيقوم Word الآن بتسجيل أفعالك. نجاح السيطرة + H لإحضار البحث والاستبدال الحوار.
5. أدخل "جمعية الحفاظ على أجهزة طب الأسنان العتيقة" في البحث و "دوري الحفاظ على الأسنان العتيقة" بدلاً من ذلك.
6. انقر استبدل الكل لتنفيذ عملية البحث والاستبدال. هذا هو الإجراء الوحيد الذي تريد تسجيله. لا يهم ما إذا كان الماكرو يحل محل أي نص بالفعل. الهدف هو حفظه للمستندات الأخرى.
7. هذا مهم: انقر المطور> إيقاف التسجيل. خلاف ذلك ، سيتضمن الماكرو جميع الإجراءات اللاحقة.

الآن دعونا نرى عملك اليدوي. افتح مستندًا يحتوي على اسم الجمعية. انقر المطور> وحدات الماكرو. إذا قمت بالنقر نقرًا مزدوجًا فوق ChangeSocietyName ، فسيقوم Word تلقائيًا بإجراء عملية البحث والاستبدال.

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

على الرغم من أننا ركزنا هنا على Microsoft Word ، يمكنك أيضًا استخدام وحدات الماكرو لزيادة الإنتاجية في Excel. وهناك الكثير من وحدات ماكرو موفرة للوقت لـ Microsoft OneNote.

كيفية تسجيل ماكرو في Excel 2016

هل تعلم أنه يمكنك أتمتة المهام المتكررة في Microsoft Excel باستخدام وحدات الماكرو؟ سنوضح لك كيفية تسجيل ماكرو في Excel 2016 لتوفير الكثير من الوقت.

الغوص في المدونة

الآن سنلقي نظرة أعمق على ماكرو Word الجديد. اذهب إلى المطور> وحدات الماكرو، ولكن بدلاً من النقر المزدوج على الماكرو ، حدده وانقر يحرر. هذا يفتح محرر Visual Basic ، بيئة قائمة بذاتها لبناء تطبيقات VBA.

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

Sub ChangeSocietyName ()
'
ماكرو ChangeSocietyName
إعادة تسمية جمعية الحفاظ على أجهزة طب الأسنان العتيقة
'
اختيار. تجد. تنسيق واضح
اختيار. تجد. إستبدال. تنسيق واضح
مع التحديد. تجد
.Text = "جمعية الحفاظ على أجهزة طب الأسنان العتيقة"
.إستبدال. Text = "رابطة الحفاظ على تحف الأسنان"
إلى الأمام = صحيح
. التفاف = wdFindContinue
تنسيق = خطأ
.MatchCase = خطأ
.MatchWholeWord = خطأ
.MatchWildcards = خطأ
.MatchSoundsLike = خطأ
.MatchAllWordForms = خطأ
انتهت ب
اختيار. تجد. تنفيذ استبدال: = wdReplaceAll
End Sub

دعونا نشرح ما يحدث هنا.

كلمة "فرعي" في السطر الأول هي اختصار لـ "روتين فرعي" ، وهو برنامج صغير يمكن تشغيله بمفرده أو كجزء من تطبيق VBA أكبر. سطور مسبوقة بعلامات اقتباس مفردة للتعليقات. تخبر علامات الاقتباس VBA بتجاهل أي عبارات في هذه السطور.

ثم نصل إلى جوهر الكود: الكود الذي ينفذ الامتداد البحث والاستبدال عملية. كما ترى ، فإنه يحدد قيمًا لكل خيار في مربع الحوار "بحث واستبدال" ، بما في ذلك النص والنص البديل بين علامات الاقتباس. ال اختيار. تجد. نفذ - اعدم الأمر بالقرب من النهاية يكافئ النقر فوق الزر "استبدال الكل".

تعديل الماكرو

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

يمكنك أيضًا تعديل الماكرو لجعله أكثر فائدة ، وهذا ما سنفعله هنا. عند تشغيل Find and Replace ، سواء يدويًا أو عبر ماكرو ، يتذكر Word البحث عن النص واستبداله. في المرة التالية التي تفتح فيها مربع الحوار "بحث واستبدال" ، سيبدو هكذا.

سيكون من الأفضل مسح القيم حتى نحصل على مربع حوار نظيف. سنفعل ذلك باستخدام ماكرو ثانٍ ، باستثناء هذه المرة ، سنفعل ذلك مباشرةً في Visual Basic.

1. في محرر Visual Basic ، حدد الروتين الفرعي بأكمله ، من السطر الأول إلى End Sub. نجاح Ctrl + C لنسخه.
2. ضع المؤشر أسفل End Sub واضغط السيطرة + V.. لقد قمت للتو بتكرار الإجراء الفرعي.
3. قم بتغيير الاسم من ChangeSocietyName إلى ClearFindReplace (أو أي اسم آخر يناسبك). هذا مهم لأن VBA سينشئ رسالة خطأ إذا حاولت تشغيل وحدات الماكرو بأسماء مكررة.
4. في ال .نص و إستبدال. نص القيم ، قم بإزالة النص مع ترك علامات الاقتباس. بشكل أساسي ، أنت تخبر Word بعدم العثور على أي شيء واستبداله بشيء ، ولكنك تقوم أيضًا بمسح هذه القيم.

يجب أن تبدو النتيجة كما يلي:

Sub ClearFindReplace ()
'
"ClearFindReplace ماكرو
مسح النص من مربع حوار "بحث واستبدال"
'
اختيار. تجد. تنسيق واضح
اختيار. تجد. إستبدال. تنسيق واضح
مع التحديد. تجد
.Text = ""
.إستبدال. نص = ""
إلى الأمام = صحيح
. التفاف = wdFindContinue
تنسيق = خطأ
.MatchCase = خطأ
.MatchWholeWord = خطأ
.MatchWildcards = خطأ
.MatchSoundsLike = خطأ
.MatchAllWordForms = خطأ
انتهت ب
اختيار. تجد. تنفيذ استبدال: = wdReplaceAll
End Sub

الآن سنعود إلى الماكرو ChangeSocietyName. أسفل رمز Find and Replace ، ولكن قبل End Sub ، أدخل ClearFindReplace (بدون أقواس في النهاية).

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

Sub ChangeSocietyName ()
'
ماكرو ChangeSocietyName
إعادة تسمية جمعية الحفاظ على أجهزة طب الأسنان العتيقة
'
اختيار. تجد. تنسيق واضح
اختيار. تجد. إستبدال. تنسيق واضح
مع التحديد. تجد
.Text = "جمعية الحفاظ على أجهزة طب الأسنان العتيقة"
.إستبدال. Text = "رابطة الحفاظ على تحف الأسنان"
إلى الأمام = صحيح
. التفاف = wdFindContinue
تنسيق = خطأ
.MatchCase = خطأ
.MatchWholeWord = خطأ
.MatchWildcards = خطأ
.MatchSoundsLike = خطأ
.MatchAllWordForms = خطأ
انتهت ب
اختيار. تجد. تنفيذ استبدال: = wdReplaceAll
ClearFindReplace
End Sub

عندما يقوم Word بتشغيل ChangeSocietyName ، سيقوم أولاً بتنفيذ وظيفة البحث والاستبدال الأصلية. ثم سوف يفسر ClearFindReplace على أنه أمر لتشغيل الماكرو الثاني.

المضي قدمًا مع VBA

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

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

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

برنامج تعليمي للمبتدئين حول كتابة وحدات ماكرو VBA في Excel (ولماذا يجب أن تتعلم)

إذا كنت تستخدم Excel بانتظام ، فمن الجدير تعلم كيفية إنشاء وحدات ماكرو VBA والوصول إلى العديد من الوظائف والإمكانيات.

عن المؤلف