كيفية تغيير الخط وحجم الخط في جميع مربعات النص في مستند 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 AI: مساعد الذكاء الاصطناعي / مساعد الوقت الحقيقي / تلميع فائق (مع الحفاظ على التنسيق) / ترجمة فائقة (مع الحفاظ على التنسيق) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...
📘 إتقان المستندات: تقسيم الصفحات / دمج المستندات / تصدير التحديد بصيغ متعددة (PDF/TXT/DOC/HTML...) / تحويل جماعي إلى PDF...
✏ تحرير المحتوى: البحث والاستبدال الجماعي عبر عدة ملفات / تغيير حجم جميع الصور / تحويل الجدول بين الصفوف والأعمدة / تحويل الجدول إلى نص...
🧹 تنظيف بلا عناء: إزالة المسافات الزائدة / فواصل الأقسام / مربعات النص / الارتباطات التشعبية / للمزيد من أدوات الإزالة، توجه إلى مجموعة إزالة...
➕ إدراجات إبداعية: إدراج فواصل الآلاف / مربعات اختيار / أزرار راديو / رمز QR / الباركود / صور متعددة / اكتشف المزيد في مجموعة إدراج...
🔍 تحديدات دقيقة: تحديد صفحات معينة / الجداول / الأشكال / فقرات العنوان / عزز التنقل مع المزيد من ميزات التحديد...
⭐ تحسينات مميزة: انتقل إلى أي موقع / إدراج تلقائي للنصوص المتكررة / التبديل بين نوافذ المستندات /11 أداة تحويل...

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