Skip to main content

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

Author: Siluvia Last Modified: 2025-05-30

كما هو موضح في لقطة الشاشة أدناه، إذا كنت ترغب في تكبير حجم خط نص التعليق في مستند 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 AI: مساعد الذكاء الاصطناعي / مساعد الوقت الحقيقي / تلميع فائق (مع الحفاظ على التنسيق) / ترجمة فائقة (مع الحفاظ على التنسيق) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...

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

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

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

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

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

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

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