KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

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

المؤلفSiluviaتاريخ التعديل

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

نافذة الاستعراض

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

أفضل أدوات إنتاجية أوفيس

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

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

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

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

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

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

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

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

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

Kutools for Word علامات التبويب على الشريط
 
 

Office Tab- يجلب واجهة ذات علامات تبويب إلى أوفيس، مما يجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word وExcel وPowerPoint وPublisher وAccess وVisio وProject.
  • افتح وأنشئ مستندات متعددة في علامات تبويب جديدة ضمن نفس النافذة، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50%، ويقلل مئات نقرات الفأرة لك كل يوم!

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

يتضمنOffice Tab Pro·Kutools لـ Excel·Kutools لـ Outlook·Kutools for Word·Kutools for PowerPoint

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

أفضل أدوات إنتاجية أوفيس

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

تنزيل مجانياشترِ الآنمعرفة المزيد عن Kutools