Const wdHeaderFooterPrimary As Long = 1 … With .Sections.First.Footers(wdHeaderFooterPrimary).Range 'code that populates footer End With