WORD Удалить последний в документе разрыв страницы, чтобы убрать пустой лист в конце документа - VBA

Формулировка задачи:

Удаляю из шаблона не нужные страницы

Selection.GoTo wdGoToPage, wdGoToAbsolute, <номер страницы>
Selection.Bookmarks("\page").Range.Delete

Когда удаляю последнюю в шаблоне страницу, получается так, что в конце предпоследней страницы остается символ разрыва страницы и это приводит к тому, что в конце документа появляется одна пустая страница Вопрос как удалить последний в документе символ разрыва страницы, чтобы эта пустая страница после него исчезла. Есть закладка EndOfDoc, но как откатиться от нее на 2-3 символа назад и проверить если это разрыв страницы (Character == 12), то удалить его? Selection.GoTo Bookmarks("\EndOfDoc")

Решение задачи: «WORD Удалить последний в документе разрыв страницы, чтобы убрать пустой лист в конце документа»

textual
                            Листинг программы 
                        

                            Sub Макрос1()
  Selection.EndKey Unit:=wdStory
  With Selection.Find
    .ClearFormatting
    .Text = "^m"
    .Forward = False
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
  End With
  If Selection.Find.Execute Then
    Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    If Not UCase$(Selection.Text) Like "*[0-9A-ZА-ЯЁ]*" Then Selection.Delete
  End If
End Sub
                        