Change:
Set oRng = ActiveDocument.Range
to:
Set oRng = ActiveDocument.StoryRanges(wdFootnotesStory)
You'll also need to change the other references for:
ActiveDocument.Rangeto:
ActiveDocument.StoryRanges(wdFootnotesStory)
Change:
Set oRng = ActiveDocument.Range
to:
Set oRng = ActiveDocument.StoryRanges(wdFootnotesStory)
You'll also need to change the other references for:
ActiveDocument.Rangeto:
ActiveDocument.StoryRanges(wdFootnotesStory)
Last edited by macropod; 03-27-2020 at 05:09 PM.
Cheers
Paul Edstein
[Fmr MS MVP - Word]