كيف يمكن تغيير حجم خط نص التعليق في مستند Word؟

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

تغيير حجم الخط التعليق باستخدام وظيفة مضمنة في Word

تغيير حجم الخط التعليق باستخدام كود VBA

---

تغيير حجم الخط بالون التعليق باستخدام وظيفة مضمنة في Word

يمكنك تغيير حجم خط نص البالون مباشرةً من جزء «الأنماط الكلية» (All Styles) في Word. يُرجى اتباع الخطوات التالية.

1. اضغط على مفاتيحCtrl + Alt + Shift + S لفتح جزءالأنماط.

2. في جزءالأنماط، انقر فوقخيارات. راجع لقطة الشاشة:

3. في نافذةخيارات جزء الأنماطالمفتوحة، اخترجميع الأنماطمن القائمة المنسدلةتحديد الأنماط المراد عرضها.

4. بعد ذلك، انقر فوقموافقللعودة إلى جزءالأنماط، ثم قم بالتمرير لأسفل حتى تجد سطرنص البالون، وانقر على الزر لتوسيع القائمة المنسدلة، ثم انقر فوقتعديل. راجع لقطة الشاشة:

5. في نافذةتعديل النمط، اختر حجم الخط الذي يناسبك من قسمالتنسيقكما هو موضح في لقطة الشاشة أدناه، ثم انقر فوق زرموافق.

6. أغلق جزءالأنماط.

بعد ذلك، يتم تغيير حجم خط جميع بالونات التعليقات إلى القيمة المحددة.

ملاحظة: سيتم تطبيق هذا الإعداد على جميع التعليقات المستقبلية.

---

تغيير حجم الخط بالون التعليق باستخدام كود VBA

يقدّم هذا القسم كود VBA لمساعدتك على تغيير حجم الخط ولون التعليقات في مستند Word بسهولة.

1. في المستند الذي تريد تغيير حجم خط تعليقاته، اضغط على مفاتيحAlt+F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.

2. في النافذة، انقر فوقإدراج > وحدة نمطية (Module). ثم انسخ كود VBA أدناه إلى نافذة الوحدة النمطية.

كود VBA: تغيير حجم الخط بالون التعليق في Word

Sub SetCommentTextStyle()
'Updated by ExtendOffice 20181112
    Dim objComment As Comment
    Dim objDoc As Document
    Dim strFontName As String
    Dim strFontSize As String 
    Set objDoc = ActiveDocument
    strFontName = InputBox("Enter text font name here: ", "Font name")
    strFontSize = InputBox("Enter font size here: ", "Font size") 
    With objDoc
      For Each objComment In .Comments
        objComment.Range.Font.Name = strFontName
        objComment.Range.Style = ActiveDocument.Styles("Balloon Text Char")
      Next objComment
    End With
    ActiveDocument.Styles("Balloon Text").Font.Size = Val(strFontSize)
End Sub

3. اضغط على مفتاحF5 لتشغيل الكود.

4. في مربع الحوار الأولKutools for Word، أدخل سطرًا جديدًا لتعليقك، ثم انقر فوقموافق.

5. في مربع الحوار الثانيKutools for Word، اكتب حجم الخط الذي تريده، ثم انقر فوقموافق.

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