VBA remove footers when inserting building blocks

[wannabeguru]

Hi gurus,

I am using the below code to insert Building Blocks based on a user's selection in a UserForm. My issue is that all of the Building Blocks are picking up the footer from the first Building Block.

Is there a way to stop this happening within VBA? I have tried using section breaks in the Building Blocks and it is not working reliably.


Set rg = ActiveDocument.Range
rg.Collapse wdCollapseEnd
If CBMerchantAgreement.Value = True Then
Set rg = tmpl.BuildingBlockEntries("MERCHANT AGREEMENT").Insert( _
where:=rg, RichText:=True)
With rg.Font
.Name = "Times New Roman"
End With
End If


Thanks for any help!

[gmaxey]

Did you unlink the footer in the section you are saving as a building block from the previous section footer before creating the BB?

[wannabeguru]

Yes, unfortunately this method has not been reliable.