يحاول VBA Word تظليل الخلايا المحددة في جدول واحد بخط غامق

Question

أنا معتاد على برنامج Excel وليس لدي خبرة كبيرة في استخدام Word VBA.لا أعرف كيفية الاختيار من جدول الكلمات.لقد جربت شيئًا مثل ما يلي ولكني لا أعرف كيفية تحديد التحديد من الجدول المحدد حاليًا.

Sub Fill_Bold()
    For Each Cell In Selection.Cells
        If Cell.Font.Bold = True Then
            Cell.Shading.BackgroundPatternColor = wdColorRed
        End If
    Next Cell
End Sub

Answer 1

من غير الواضح بعض الشيء ما الذي تسأل عنه ولكني أعددت الإجابة بالإشارة إلى عنوان سؤالك.الافتراضات:

1. اختيارك موجود ضمن أي جدول
2. تريد البحث عن أي خلية جريئة
3. املأها باللون الأحمر.

إليك تحسين الكود الخاص بك عند الحاجة:

Sub Fill_Bold()
Dim myCell
For Each myCell In Selection.Tables(1).Range.Cells

    If myCell.Range.Font.Bold = True Then

        myCell.Shading.BackgroundPatternColor = wdColorRed

    End If
Next myCell

End Sub

مهم! لا يمكنك استخدام cell variable اسم كما cell هو كائن في كلمة، في الواقع على حد سواء cell و cells هي كائن/مجموعة.