Microsoft Office Forums - View Single Post - [Solved] Problem with insert a footer at the end of my doc (a series of QuickPart fields + a Buildingblock)

gmaxey · 11-26-2025, 02:21 PM

Why not create a single building block with the necessary field codes. E.g.,

Select your existing footer construction. Save it as MyFooterLastPageBB

Then simply use:

Code:

Sub InsertFooterPageII()
Dim HdFt As HeaderFooter, Rng As Range
  Application.ScreenUpdating = False
  For Each HdFt In ActiveDocument.Sections.Last.Footers
    If HdFt.Exists Then
      Set Rng = HdFt.Range
      'Replace NormalTemplate as necessary to reflect where your BB is stored.
      NormalTemplate.BuildingBlockEntries("MyFooterLastPageBB").Insert Rng, True
    End If
  Next HdFt
  Application.ScreenUpdating = True
lbl_Exit:
  ExitSub
End Sub