Crear una macro para insertar numeración de página en word

He creado una macro para insertar nº de página en word pero no funciona

' Macro10 Macro

   NormalTemplate.BuildingBlockEntries("equipo").Insert Where:=Selection. _

       Range, RichText:=True

   ActiveDocument.AttachedTemplate.BuildingBlockEntries( _

       "Número sin formato 2").Insert Where:=Selection.Range, RichText:=True

   WordBasic.ViewFooterOnly

   ActiveDocument.AttachedTemplate.BuildingBlockEntries( _

       "Número sin formato 2").Insert Where:=Selection.Range, RichText:=True

   Selection.MoveRight Unit:=wdCharacter, Couequipont:=1, Extend:=wdExtend

   Selection.Font.Size = 10

   ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub