Originally Posted by
gmaxey
That would seem to indicate that the buildingblock is not available. Are you running it again repeatedly in the same document or are you trying to run it in a new document that may not have the same attached template or building blocks?
Try:
[vba]Sub Insert_Footerh()
Dim oRng As Word.Range
Set oRng = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range
oRng.Collapse wdCollapseStart
ActiveDocument.AttachedTemplate.BuildingBlockEntries("alphabet).Insert _
Where:=oRng, RichText:=True
End Sub
[/vba]