The bookmarks are deleted because the content they were attached to gets deleted. The workaround requires something like (untested) -
Change:
Code:
Dim Sctn1 As Section, Sctn2 As Section
to:
Code:
Dim Sctn1 As Section, Sctn2 As Section, BkMk As Bookmark, x As Long, y As Long
After:
Code:
.FormattedText = Sctn1.Footers(oHdFt.Index).Range.FormattedText
insert:
Code:
For Each BkMk In Sctn1.Footers(oHdFt.Index).Range
x = BkMk.Range.Start: y = BkMk.Range.End
.Bookmarks.Add Name:=BkMk.Name, Range:=.SetRange(x, y)
Next
After:
Code:
.FormattedText = Sctn1.Headers(oHdFt.Index).Range.FormattedText
insert:
Code:
For Each BkMk In Sctn1.Headers(oHdFt.Index).Range
x = BkMk.Range.Start: y = BkMk.Range.End
.Bookmarks.Add Name:=BkMk.Name, Range:=.SetRange(x, y)
Next