Sub Demo() Dim Ftr As HeaderFooter, i As Long With ActiveDocument For i = 2 To .Sections.Count For Each Ftr In .Sections(i).Footers Ftr.LinkToPrevious = True Next Next End With End Sub