VBA word 2016 Колонтитул не инициализируется

В общем проблема такая, я написал макрос, который вставляет колонтитул и он успешно работает, но перед тем как воспользоваться макросом надо обязательно открыть выпадающее меню (Вставить верхний колонтитул или Вставить нижний колонтитул) и только так макрос будет работать. А если документ .docx только что был создан, то макрос не будет работать пока вы не откроете меню с колонтитулами. Такой вопрос, есть ли решения для данной проблемы по типу инициализация колонтитулов или прогрузка колонтитулов

Sub macr_horiz_A3()
    Dim objTemplate As Template
    Dim objBB As BuildingBlock
    Dim folderPath As String

    ' Загружаем шаблон
    folderPath = Environ("AppData") & "\Microsoft\Document Building Blocks\1049\16\Building Blocks.dotx"
    
    Set objTemplate = Application.Templates(folderPath)
    Set objBB = objTemplate.BuildingBlockEntries("a3horizontal")
    
    ' Сохраняем текущую позицию курсора
    Dim currentPosition As Range
    Set currentPosition = Selection.Range
    
    ' Меняем формат и колонтитул на текущей странице
    currentPosition.Sections(1).Headers(wdHeaderFooterPrimary).Range.Delete
    currentPosition.PageSetup.PaperSize = wdPaperA3
    currentPosition.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = ""
    objBB.Insert Where:=currentPosition.Sections(1).Headers(wdHeaderFooterPrimary).Range, RichText:=True
    currentPosition.PageSetup.Orientation = wdOrientLandscape
End Sub