Felmeddelande när du kör ett inspelat makro som infogar ett försättsblad i Word 2007: "den begärda medlemmen i samlingen finns inte"


Symptom


Föreställ dig följande. Du spelar in ett makro om du vill infoga ett försättsblad i ett Microsoft Office Word 2007-dokument. Du kör makrot. I detta fall infogas inte försättsbladet. Dessutom visas följande felmeddelande:
Körningsfel '5941':

Den begärda medlemmen i samlingen finns inte.

Temporär lösning


Microsoft tillhandahåller programmeringsexempel endast utan garanti varken uttryckliga eller underförstådda. Detta inkluderar men är inte begränsat till, underförstådda garantier om säljbarhet eller lämplighet för ett särskilt ändamål. Den här artikeln förutsätter att du är bekant med det programmeringsspråk som demonstreras och de verktyg som används för att skapa och felsöka procedurer. Microsofts supporttekniker kan hjälpa till med att förklara funktionen hos en viss procedur, men kan inte ändra dessa exempel för att ge ytterligare funktioner eller skapa procedurer som motsvarar dina speciella behov.

Undvik det här problemet genom att skriva om det inspelade makrot om du vill använda klassen mallar.

Så här gör du i Word 2007:
  1. Klicka på Spela upp makrotstatusfältet .
  2. Markera det inspelade makrot under Makronamnoch klicka sedan på Redigera.
  3. Ersätt den inspelade makrokoden med makrokod som liknar följande makrokod:
    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

    Obs! Om du vill använda ett annat försättsblad kan du ersätta "Kritstreck" med namnet på det försättsblad som du vill använda.
  4. Klicka på Stäng och återgå till Microsoft WordArkiv -menyn.

Mer Information


När du spelar in ett makro i Word 2007 för att infoga poster i Word 2007 i försättsbladet "Kritstreck" följande makrokod:
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