word安插页码出错

word插入页码出错
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 ，集合要求的成员不存在”
求问大家，这个是那个成员有问题，查了半天都没找到，该怎么改一下啊，谢谢大家帮忙啦先！
[解决办法]
这个问题该如何解决，有遇到的朋友，给支招，焦急中，谢谢啦