word插入页码出错!

[lovessll]

Dim WordApp As Word.Application '<-避免使用 As New 定义
Dim NewDoc As Word.Document '<-要显示定义局部变量
Set WordApp = New Word.Application
Set NewDoc = WordApp.Documents.Add
WordApp.Visible = True
'WordApp.WordBasic.ToggleDocumentText
WordApp.WordBasic.ViewFooterOnly
WordApp.ActiveDocument.AttachedTemplate.BuildingBlockEntries("普通数字 2").Insert Where:=WordApp.Selection.Range, RichText:=True

WordApp.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

我用上述代码调用word插入页码时提示“实时错误5941 ，集合要求的成员不存在”
求问大家，这个是那个成员有问题，查了半天都没找到，该怎么改一下啊，谢谢大家帮忙啦先！

[nklfs]

怀疑“("普通数字 2").”不能用吧，用index行不？

[无米之炊]

WordApp.ActiveDocument.AttachedTemplate.BuildingBlockEntries("普通数字 2").Insert Where:=WordApp.Selection.Range, RichText:=True

这里的{BuildingBlockEntries("普通数字 2").Insert}不对,不能这么用.

[lovessll]

[Quote=引用 1 楼 nklfs 的回复:]
怀疑“("普通数字 2").”不能用吧，用index行不？
[/Quote]
这是录制宏后形成的。

[lovessll]

[Quote=引用 3 楼 merelau 的回复:]
WordApp.ActiveDocument.AttachedTemplate.BuildingBlockEntries("普通数字 2").Insert Where:=WordApp.Selection.Range, RichText:=True

这里的{BuildingBlockEntries("普通数字 2").Insert}不对,不能这么用.
[/Quote]
求问：该怎么用？