Mensaje de error cuando ejecuta una macro grabada para insertar una portada en Word 2007: "no existe el miembro solicitado del conjunto"


Síntomas


Considere el siguiente escenario. Grabar una macro para insertar una portada en un documento de Microsoft Office Word 2007. A continuación, ejecutar la macro grabada. En este escenario, la portada no se inserta. Además, recibirá el siguiente mensaje de error:
Error en tiempo de ejecución '5941':

No existe el miembro solicitado de la colección.

Solución alternativa


Microsoft proporciona ejemplos de programación únicamente con fines ilustrativos, sin ninguna garantía expresa o implícita. Esto incluye, pero no se limita, a las garantías implícitas de comerciabilidad o idoneidad para un propósito particular. Este artículo asume que está familiarizado con el lenguaje de programación que se muestra y con las herramientas que se utilizan para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos que cumplan sus requisitos específicos.

Para evitar este problema, vuelva a escribir la macro grabada para utilizar la clase de plantillas.

Para hacer esto en Word 2007, siga estos pasos:
  1. En la barra de estado , haga clic en Reproducir Macro.
  2. En nombre de la Macro, haga clic para seleccionar la macro grabada y, a continuación, haga clic en Editar.
  3. Reemplace el código de macro grabada con código de macro que se asemeje al código de macro siguiente:
    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

    Nota: Si desea utilizar una portada diferente, reemplace "Rayas finas" con el nombre de la portada que desee.
  4. En el menú archivo , haga clic en Cerrar y volver a Microsoft Word.

Más información


Cuando grabe una macro en Word 2007 para insertar la portada "Rayas finas", registros de Word 2007 en el código de macro siguiente:
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