وحدات ماكرو Word بخلاف مسجل الماكرو: Office 2016 ، 365/2019 دروس الماكرو وأمثلة مفيدة

قابلية التطبيق: Word 365 ، 2019 ، 2016 ؛ أنظمة تشغيل Windows و MAC OS X.

هذا سؤال من القارئ:

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

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

تمكين علامة تبويب المطور في Word

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

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

تسجيل ماكرو كلمة - مثال عملي

• الآن ، اضغط على علامة تبويب المطور المضافة حديثًا .
• انتقل إلى مجموعة أزرار الرمز .

• اضغط على زر تسجيل الماكرو لاستدعاء وظيفة مسجل الماكرو.

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

•  ملاحظة: على الرغم من أنه من الممكن تعيين وحدات ماكرو للأزرار ، إلا أننا سنقوم بتشغيل الماكرو يدويًا عبر علامة التبويب عرض أو علامة تبويب المطور ، من أجل التبسيط.

• قم بتنفيذ تسلسل الخطوات التي ترغب في تسجيلها. في هذه الحالة ، ستقوم بتسجيل الخطوات التالية:
  • حدد فقرة معينة في المستند الخاص بك.
  • انتقل إلى علامة التبويب الصفحة الرئيسية .
  • اضبط الخط على Times New Roman.
  • اضبط حجم الخط على 16.
  • توسيط النص الخاص بك عن طريق الضغط على Ctrl + E.
• بمجرد الانتهاء ، ارجع إلى علامة تبويب المطور واضغط على إيقاف التسجيل .
• الآن دعونا نلقي نظرة على رمز VBA الذي تم إنشاؤه تلقائيًا. اضغط على وحدات الماكرو ثم قم بتمييز AutoFormat Macro واضغط على Edit .

• أغلق محرر VBA.

احفظ عملك في قالب ممكّن لـ Word Macro

• اضغط على ملف ، ثم حفظ باسم .
• في مربع الحوار Save As على الجانب الأيمن ، حدد موقع الحفظ الخاص بك وقدم اسمًا ذا معنى لمصنفك.

• اختر مستند Word ممكّن بماكرو كنوع المستند الخاص بك. ملاحظة: سيتم حفظ مستند Word الخاص بك مع لاحقة .docm.
• اضغط على زر حفظ .

تنفيذ الماكرو الخاص بك

• افتح مستند Word الخاص بك.
• حدد الفقرة التي تريد تنسيقها تلقائيًا. كمثال ، ها هي الفقرة التي اخترتها:

• انتقل إلى علامة التبويب عرض .
• اضغط على زر وحدات الماكرو .
• حدد ماكرو التنسيق التلقائي الخاص بك
• ضرب تشغيل - سيؤدي هذا إلى تطبيق الماكرو على الفقرة المحددة.
• Voi'la ، نتيجة جميلة!

  

تعيين الماكرو الخاص بك للأزرار أو اختصارات لوحة المفاتيح

ملاحظة: هذه خطوة اختيارية يجب تجربتها بعد اتباع البرنامج التعليمي لتسجيل الماكرو أعلاه.

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

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

• اضغط على زر تعديل ... لتحديد رمز مناسب لماكرو.
• حدد اسم العرض للزر الخاص بك.
• اضغط على موافق .
• الآن ، يمكنك تشغيل الماكرو الخاص بك من شريط أدوات الوصول السريع ، أعلى الشريط مباشرة.

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

إنشاء وحدات ماكرو Word باستخدام VBA

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

جانبا ملاحظة: لمعلوماتك - بعض تطبيقات Microsoft Office ، مثل Powerpoint و Outlook ، لا تحتوي على مسجلات ماكرو مضمنة . لذلك ، تعد كتابة VBA إلزامية لكتابة وحدات ماكرو Powerpoint وأتمتة Outlook.

• لتحرير ماكرو ، انقر فوق  علامة التبويب Developer  وحدد وحدات الماكرو في خيار التعليمات البرمجية.
• انقر فوق الماكرو وحدد  تحرير .
• سيتم فتح محرر Visual Basic للتطبيقات.
• لنفترض أننا نريد تحرير الماكرو يدويًا الذي سجلناه في الخطوة السابقة ، بحيث لا يكتفي Word بتعيين الحجم والخط ومحاذاة الفقرة ، ولكن أيضًا اللون.
• يتم ضبط لون القسم باستخدام أمر VBA التالي:

[كود] Selection.Font.Color [/ code]

• في حالتنا ، سنرغب في تعيينه إلى اللون الأزرق العشوائي ، لذلك سنلحق المقتطف التالي بالماكرو المسجل لدينا:

[كود] Selection.Font.Color = 16737792 [/ code]

• إليك الشكل الذي يجب أن يبدو عليه رمز VBA:

• في محرر VBA ، اضغط على File ثم Save .
• العودة إلى المستند الخاص بك ، قم بتشغيل الماكرو الخاص بك على فقرة ولاحظ تغيير لون الخط.

• هاهو!

مفيد كلمة ماكرو مثال يمكنك كتابته

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

إنشاء وحفظ مستند جديد

Sub CreateNewDoc()
'This small snippet first creates a new document, then it checks whether a document with the same name already exists before saving.
Dim myDoc As New Document
Dim filePath As String

'Modify your file path as needed
filePath = "C:\MyNewDoc.docx"

Set myDoc = Documents.Add
With myDoc
If Dir(filePath) = "" Then
.SaveAs2 (filePath)
Else

'You have already an existing document

MsgBox ("Please use a different file name")
End If
End With

myDoc.Close SaveChanges:=wdPromptToSaveChanges

End Sub

ملاحظة: عند إنشاء مستندات جديدة ، يمكنك تحديد القالب (ملفات .dotm / .dotx) الذي ترغب في استخدامه. يتم تخزين القوالب عادةً في: C: \ Users \ AppData \ Roaming \ Microsoft \ Templates

Documents.Add Template:=<your_template_folder>

افتح مستند Word باستخدام VBA

Sub OpenDoc()
'This code checks whether your document exists and then opens it
filePath = "C:\MyNewDoc.docx"

If Dir(filePath) = "" Then
MsgBox ("file doesn't exist")
Else
Documents.Open (filePath)
End If

End Sub

إغلاق واحد / جميع المستندات المفتوحة

Sub CloseDoc()

'This code closes a specific document
filePath = "C:\MyNewDoc.docx"
Documents(filePath).Close SaveChanges:=wdPromptToSaveChanges
End Sub

Sub CloseAllDocs()
'This code closes all opened documents in your computer
Documents.Close SaveChanges:=wdPromptToSaveChanges

End Sub

حفظ Word كملف PDF

فيما يلي كيفية أتمتة حفظ مستندات Word كملفات PDF بسهولة.

Sub SaveAsPdf()
'This code saves a word document in a PDF format
FileName = Left(CStr(ActiveDocument.Name), Len(CStr(ActiveDocument.Name)) - 5)
ActiveDocument.SaveAs2 FileName:="c:\" + FileName + ".pdf", FileFormat:=wdFormatPDF

End Sub

إدراج رأس وتذييل الصفحة

يعين هذا الرمز رأس وتذييل الصفحة الأولى من مستند Word.

Sub InsertHeaderFooterFirstPage()
Dim myDoc As Document
Dim headerText As String
Dim footerText As String

Set myDoc = ActiveDocument
'Replace the header and footer text as needed
headerText = "This document was written by you"
footerText = "All rights reserved to you"

With myDoc.Sections(1)
'We first ensure that we can set different header and footer texts
.PageSetup.DifferentFirstPageHeaderFooter = True
'Setting the header and footer texts
.Headers(wdHeaderFooterFirstPage).Range.Text = headerText
.Footers(wdHeaderFooterFirstPage).Range.Text = footerText

End With

End Sub

أفكار ماكرو إضافية في Word

إليك بعض الأفكار الأخرى التي سننشرها في المستقبل القريب.

1. البحث والاستبدال (طريقة التنفيذ)
2. ادراج فقرة (قبل وبعد التحديد)
3. طباعة المستندات برمجيًا
4. العمل مع الجداول

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