Note: The other languages of the website are Google-translated. Back to English

كيفية تغيير الخط وحجم الخط في جميع مربعات النص في مستند 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 .

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


أدوات إنتاجية Word الموصى بها

 

Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
  • أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
  • قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...