打开word加载值或者打印预览时，自动删除整页

nuation

背景介绍：一个word文档，其中 7.8.9.10页中。 最后一个字符分别A B C D ，如下图9页为C.



通过软件自动控制 word 的书签 会自动将ABCD自动删除 其中3个。只会保留 之中一个。


想达到这样的效果：
1.vba自动在加载所有值后 运行（或者在打印预览前运行）
2.运行结果就是将 7.8.9.10页，其中3页不未【A-D】的进行删除。

网上只拉到一个固定删除 3.6.9页的。不会改变。有大神帮忙一下不？
Sub kk1206190933()

  Dim wNum As Integer

  Dim wPag As Integer

  With Selection

  wPag = .Information(wdNumberOfPagesInDocument)

    For wNum = Int(wPag / 3) * 3 To 3 Step -3

      .GoTo wdGoToPage, , wNum

      .Bookmarks("\Page").Range.Delete

    Next

  End With

End Sub