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

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



كوتولس للكلمة

أكثر من 100 Advanced Functions لكل من Word 2003 و 2007 و 2010 و 2013 و 2016 و 2019

بالرصاص kutools-700-225-KTE

المزيد من الميزات | تحميل مجانا | فقط شنومكس $ لمئات من الوظائف

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.

Be the first to comment.