ظهور رسالة خطأ عند تشغيل ماكرو مسجل لإدراج صفحة غلاف في برنامج Word 2007: "عضو المجموعة المطلوب غير موجود"


الأعراض


اطلع على السيناريو التالي. تسجيل ماكرو لإدراج صفحة غلاف في مستند Microsoft Office Word 2007. يمكنك بعد ذلك تشغيل الماكرو المسجل. في هذا السيناريو، لا يتم إدراج صفحة الغلاف. بالإضافة إلى ذلك، تتلقى رسالة الخطأ التالية:
خطأ وقت التشغيل '5941':

عضو المجموعة المطلوب غير موجود.

الحل البديل


تقدم Microsoft أمثلة برمجية للتوضيح فقط، دون أي ضمان صريح أو ضمني. هذا يتضمن، على سبيل المثال لا الحصر، الضمانات الضمنية الخاصة بالتسويق أو الملاءمة لغرض معين. تفترض هذه المقالة أنك معتاد على لغة البرمجة التي يتم شرحها والأدوات المستخدمة لإنشاء الإجراءات وتصحيحها. يساعد مهندسو الدعم لدى Microsoft في شرح وظيفة إجراء محدد، لكنهم لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات تستوفي متطلبات محددة.

للتغلب على هذه المشكلة، أعد كتابة الماكرو المسجل لاستخدام فئة قوالب.

للقيام بذلك في Word 2007، اتبع الخطوات التالية:
  1. في شريط الحالة ، انقر فوق تشغيل الماكرو.
  2. ضمن اسم الماكرو، انقر لتحديد الماكرو المسجل، ومن ثم انقر فوق تحرير.
  3. استبدال رمز مسجل الماكرو باستخدام تعليمات برمجية لماكرو يشبه الماكرو البرمجية التالية:
    Sub Macro1()
    For Each mytemplate In Templates
    If mytemplate.Name = "Building Blocks.dotx" Then _
    mytemplate.BuildingBlockEntries("Pinstripes").Insert Where:=Selection.Range, RichText:=True
    Next

    End Sub

    ملاحظة: إذا كنت تريد استخدام صفحة غلاف مختلفة، يستعاض عن "بذل مخططة" باسم صفحة الغلاف التي تريدها.
  4. من القائمة ملف ، انقر فوق إغلاق ورجوع إلى Microsoft Word.

مزيد من المعلومات


عند تسجيل ماكرو في Word 2007 لإدراج صفحة الغلاف "بذل مخططة" سجلات Word 2007 الماكرو البرمجية التالية:
Sub Macro1()'
' Macro1 Macro
'
'
ActiveDocument.AttachedTemplate.BuildingBlockEntries( _
"PlaceholderAutotext_0").Insert Where:=Selection.Range, RichText:=True
ActiveDocument.AttachedTemplate.BuildingBlockEntries( _
"PlaceholderAutotext_1").Insert Where:=Selection.Range, RichText:=True
ActiveDocument.AttachedTemplate.BuildingBlockEntries( _
"PlaceholderAutotext_2").Insert Where:=Selection.Range, RichText:=True
ActiveDocument.AttachedTemplate.BuildingBlockEntries("Pinstripes").Insert _
Where:=Selection.Range, RichText:=True
End Sub