كيفية تغيير الخط وحجم الخط في جميع مربعات النص في مستند Word؟
تتحدث هذه المقالة عن تغيير الخط وحجم الخط في مربعات النص في المستند الحالي أو المستندات الموجودة في مجلد محدد. يرجى تجربة أساليب VBA الواردة في المقالة.
تغيير الخط وحجم الخط في مربعات النص في المستند الحالي
تغيير الخط وحجم الخط في مربعات النص لجميع المستندات في مجلد
تغيير الخط وحجم الخط في مربعات النص في المستند الحالي
بالنسبة لمربعات النص التي ستقوم بتغيير الخط وحجم الخط فيها في المستند الحالي، يرجى تطبيق كود VBA أدناه لحل المشكلة.
1. اضغط على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة، ثم قم بنسخ الكود التالي إلى نافذة الوحدة.
كود 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، انقر فوق إدراج > وحدة، ثم قم بنسخ الكود التالي إلى نافذة الوحدة.
كود 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: مساعد الذكاء الاصطناعي / مساعد الوقت الحقيقي / تلميع فائق (الحفاظ على التنسيق) / ترجمة فائقة (الحفاظ على التنسيق) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...
📘 إتقان المستندات: تقسيم الصفحات / دمج المستندات / تصدير التحديد بتنسيقات متعددة (PDF/TXT/DOC/HTML...) / تحويل جماعي إلى PDF...
✏ تحرير المحتوى: البحث والاستبدال الجماعي عبر ملفات متعددة / تغيير حجم جميع الصور / تحويل الجدول بين الصفوف والأعمدة / تحويل الجدول إلى نص...
🧹 تنظيف سهل: أزل المسافات الزائدة / فواصل الأقسام / مربعات النص / الروابط التشعبية / لمزيد من أدوات الإزالة، توجه إلى مجموعة إزالة...
➕ إدراجات إبداعية: إدراج فواصل الآلاف / مربعات اختيار / أزرار راديو / رمز QR / الباركود / صور متعددة / اكتشف المزيد في مجموعة إدراج...
🔍 تحديدات دقيقة: تحديد الصفحات المحددة / الجداول / الأشكال / فقرات العناوين / عزز التنقل مع المزيد من ميزات التحديد ...
⭐ تحسينات مميزة: انتقل إلى أي موقع / إدراج تلقائي للنص المتكرر / التبديل بين نوافذ المستند /11 أداة تحويل...
🌍 يدعم أكثر من40 لغة: استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية وأكثر من40 لغة أخرى!

أفضل أدوات الإنتاجية لمكتبك
Kutools for Word - 100+ أداة لـ Word
- 🤖 ميزات الذكاء الاصطناعي في Kutools: مساعد الذكاء الاصطناعي / مساعد الوقت الحقيقي / تلميع فائق / ترجمة فائقة / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي
- 📘 إتقان المستندات: تقسيم الصفحات / دمج المستندات / تحويل جماعي إلى PDF
- ✏ تحرير المحتوى: البحث والاستبدال الجماعي / تغيير حجم جميع الصور
- 🧹 تنظيف سهل: إزالة المسافات الزائدة / إزالة فواصل الأقسام
- ➕ إدراجات إبداعية: إدراج فواصل الآلاف / إدراج مربعات اختيار / إنشاء رموز QR
- 🌍 يدعم أكثر من40 لغة: Kutools يتحدث لغتك – أكثر من40 لغة متوفرة!