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

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

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

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

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

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

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

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ الكود التالي في نافذة الوحدة النمطية.

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

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

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

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

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

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

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

2. في مستند Word الافتتاحي ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

3. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ الكود التالي في نافذة الوحدة النمطية.

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

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 مفتاح لتشغيل الكود. في الافتتاح تصفح نافذة ، حدد المجلد (يحتوي على المستندات التي ستقوم بتغيير الخط وحجم الخط في مربعات النص) وانقر فوق OK .

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

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

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

تعمق في الميزات المميزة أدناه أو انقر هنا لاستكشاف القوة الكاملة ل Kutools for Word.

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

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

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

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

🔍 التحديدات الدقيقة: تحديد صفحات محددة  /  الجداول  /  الأشكال  /  فقرات العناوين  /  تنقل بسهولة باستخدام مجموعة Select الخاصة بنا

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

قم بتحويل مهام Word الخاصة بك باستخدام Kutools. 👉 قم بالتنزيل مع نسخة تجريبية مدتها 30 يومًا الآن 🚀.

تفاصيل أكثر       تحميل مجانا      شراء