Turn of "same as previous" globally?

[Laura]

Does anyone know a way to remove same as previous on all
sections at once? I work with lengthy documents that
require custom footers and it's a pain to go through and
remove the same as previous on each section.

Thanks!

 

[Stefan Blom]

You can use a macro such as the following:

'**********************************************
Sub DisableSameAsPrevious()
Dim s As Section
Dim h As HeaderFooter
Dim f As HeaderFooter
For Each s In ActiveDocument.Sections
For Each h In s.Headers
h.LinkToPrevious = False
Next h
For Each f In s.Footers
f.LinkToPrevious = False
Next f

Next s
End Sub
'**********************************************