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