Thanks for your reply. Unfortunately it seems my document is too big to post here.

I've tried the macro, but it says

"Run-time error '5937': Cannot copy content between these two ranges"

When I debug it, it highlights this line:

HdFt.Range.FormattedText = .Sections(1).Headers(HdFt.Index).Range.FormattedTe xt

Any thoughts?