Skip to main content

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

Author: Siluvia Last Modified: 2025-08-06

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

Font size of comment text is changed

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

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


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

يمكنك تغيير حجم خط نص الفقاعة مباشرةً من جزء جميع الأنماط في Word. يرجى اتباع الخطوات التالية.

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

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

Styles pane with Options button highlighted

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

Style Pane Options dialog box

4. ثم انقر موافق للعودة إلى الأنماط جزء الأنماط، يرجى التمرير لأسفل للعثور على Balloon Text السطر، ثم انقر على Dropdown arrow الزر لتوسيع القائمة المنسدلة، ثم انقر على تعديل. انظر لقطة الشاشة:

Styles pane with Modify option highlighted

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

Modify Style window

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

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

Font size of comment text is changed

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


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

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

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

2. في النافذة، انقر على إدراج > الوحدة النمطية. ثم انسخ كود 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 الأول، أدخل خطًا جديدًا لتعليقك ثم انقر على موافق.

Dialog box for entering a font for comments

5. في مربع حوار Kutools for Word الثاني، أدخل حجم الخط المطلوب ثم انقر على موافق.

Dialog box for entering a font size for comments

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

أفضل أدوات الإنتاجية لمكتبك

Kutools for Word - ارتقِ بتجربتك في Word مع أكثر من 100 ميزة مذهلة!

🤖 ميزات الذكاء الاصطناعي في Kutools: مساعد الذكاء الاصطناعي / مساعد الوقت الحقيقي / تلميع فائق (الحفاظ على التنسيق) / ترجمة فائقة (الحفاظ على التنسيق) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...

📘 إتقان المستندات: تقسيم الصفحات / دمج المستندات / تصدير التحديد بتنسيقات متعددة (PDF/TXT/DOC/HTML...) / تحويل جماعي إلى PDF...

تحرير المحتوى: البحث والاستبدال الجماعي عبر ملفات متعددة / تغيير حجم جميع الصور / تحويل الجدول بين الصفوف والأعمدة / تحويل الجدول إلى نص...

🧹 تنظيف سهل: أزل المسافات الزائدة / فواصل الأقسام / مربعات النص / الروابط التشعبية / لمزيد من أدوات الإزالة، توجه إلى مجموعة إزالة...

إدراجات إبداعية: إدراج فواصل الآلاف / مربعات اختيار / أزرار راديو / رمز QR / الباركود / صور متعددة / اكتشف المزيد في مجموعة إدراج...

🔍 تحديدات دقيقة: تحديد الصفحات المحددة / الجداول / الأشكال / فقرات العناوين / عزز التنقل مع المزيد من ميزات التحديد ...

تحسينات مميزة: انتقل إلى أي موقع / إدراج تلقائي للنص المتكرر / التبديل بين نوافذ المستند /11 أداة تحويل...

🌍 يدعم أكثر من40 لغة: استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية وأكثر من40 لغة أخرى!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 ترغب في تجربة هذه الميزات؟ نزّل Kutools for Word الآن! 🚀