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 ，集合要求的成员不存在”
求问大家，这个是那个成员有问题，查了半天都没找到，该怎么改一下啊，谢谢大家帮忙啦先！

这个问题该如何解决，有遇到的朋友，给支招，焦急中，谢谢啦