Skip to main content

Kutools for Office — مجموعة واحدة. خمسة أدوات. أنجز المزيد.

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

Author Siluvia Last modified

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

تغيير الخط وحجم الخط في مربعات النص في المستند الحالي

تغيير الخط وحجم الخط في مربعات النص لجميع المستندات في مجلد

تغيير الخط وحجم الخط في مربعات النص في المستند الحالي

بالنسبة لمربعات النص التي ستقوم بتغيير الخط وحجم الخط فيها في المستند الحالي، يرجى تطبيق كود VBA أدناه لحل المشكلة.

1. اضغط على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة، ثم قم بنسخ الكود التالي إلى نافذة الوحدة.

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

Sub FormatTextsInTextBoxes()
'Updated by ExtendOffice 20181128
    Dim I As Long
    Dim xShape As Shape
    Dim xDoc As Document
    Set xDoc = ActiveDocument
    On Error Resume Next
    For Each xShape In xDoc.Shapes
        xShape.Select
        If xShape.GroupItems Is Nothing Then
            With xShape.TextFrame.TextRange.Font
                .Name = "Arial"
                .Size = 20
            End With
            GoTo LblExit
        End If
        For I = 1 To xShape.GroupItems.Count
            With xShape.GroupItems(I).TextFrame.TextRange.Font
                .Name = "Arial"
                .Size = 20
            End With
        Next
LblExit:
    Next
End Sub

ملاحظة: في الكود، “Arial” و “20” هما الخط وحجم الخط المحددان في حالتي. يمكنك تغييرهما بناءً على احتياجاتك الخاصة.

3. اضغط على مفتاح F5 لتشغيل الكود. بعد ذلك سيتم تغيير خط وحجم خط جميع النصوص في مربعات النص إلى الخط وحجم الخط المحددين. شاهد لقطة الشاشة:

Font and font size in the text boxes are changed to the specified ones

تغيير الخط وحجم الخط في جميع مربعات النص لجميع المستندات في مجلد

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

1. الرجاء جمع جميع المستندات المستهدفة التي تحتوي على مربعات النص التي ستحدد الخط وحجم الخط لها وضعها في نفس المجلد.

2. في مستند Word مفتوح، اضغط على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

3. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة، ثم قم بنسخ الكود التالي إلى نافذة الوحدة.

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

Sub FormatTextsInTextBoxesInMultiDoc()
'Updated by ExtendOffice 20181128
    Dim I As Long
    Dim xShape As Shape
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileStr As String
    On Error Resume Next
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFolder = xDlg.SelectedItems(1) + "\"
        xFileStr = Dir(xFolder & "*.doc", vbNormal)
        While xFileStr <> ""
            Documents.Open xFolder & xFileStr
            For Each xShape In ActiveDocument.Shapes
                xShape.Select
                If xShape.GroupItems Is Nothing Then
                    With xShape.TextFrame.TextRange.Font
                        .Name = "Arial"
                        .Size = 20
                    End With
                    GoTo LblExit
                End If
                For I = 1 To xShape.GroupItems.Count
                    With xShape.GroupItems(I).TextFrame.TextRange.Font
                        .Name = "Arial"
                        .Size = 20
                    End With
                Next
LblExit:
            Next
            ActiveDocument.Save
            ActiveDocument.Close
            xFileStr = Dir()
       Wend
    End If
End Sub

4. اضغط على مفتاح F5 لتشغيل الكود. في نافذة الاستعراض التي ستظهر، حدد المجلد (الذي يحتوي على المستندات التي ستحدد الخط وحجم الخط فيها) واضغط على زر موافق.

Browse window

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

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

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

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

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

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

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

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

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

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

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

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

✨ Kutools لـ Office – تثبيت واحد، خمس أدوات قوية!

يشمل Office Tab Pro · Kutools لـ Excel · أدوات Kutools لـ Outlook · Kutools لـ Word · Kutools لـ PowerPoint

📦 احصل على جميع الأدوات الخمسة في مجموعة واحدة | 🔗 تكامل سلس مع Microsoft Office | ⚡ وفر وقتك وزد إنتاجيتك فوراً

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

Kutools لـ Word - 100+ أدوات لـ Word

تحميل مجاني اشترِ الآن تعرف أكثر حول Kutools