نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

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

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


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

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

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

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

رمز 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

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

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


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

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

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

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

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

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

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



أوصت كلمة أدوات الإنتاجية

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

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة خلال ثوانٍ.
  • إدراج صور متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word متعددة عبر مجلدات في واحد بالترتيب المطلوب.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقاطع أو معايير أخرى.
  • تحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والتحديدات الشائعة ، وما إلى ذلك ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    pavithra · 2 months ago
    This is an awesome post.Really very informative and creative contents. These concept is a good way to enhance the knowledge.I like it and help me to development very well.Thank you for this brief explanation and very nice information.Well, got a good knowledge.

    Java Training in Chennai
    Java Training in Coimbatore
    Java Training in Bangalore