Thanks for posting that, Stingo - it works extremely well.
The only change I've made, other the changing the font to my personal preference, is to add a final line:
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1"
so that the cursor ends up at the top of the document, with no selection. Without it, the cursor is left at the bottom, with the entire document selected.
Extremely useful - very many thanks for that!