vba操作word删除某些页面

突然要进行word的vba操作，真心不适应，可以删除word的页面
bug：每次删除的时候都是重新计算页码，所以说需要计算好每次删除后的页面页码

Sub kk1206190933()
  Dim wNum As Integer
  Dim wPag As Integer
  'Dim arr(5) As Integer, i As Variant
  With Selection
  wPag = .Information(wdNumberOfPagesInDocument)
    'For wNum = Int(wPag / 3) * 3 To 3 Step -3
    arr = Array(91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 201, 201, 201, 203, 204, 207, 209, 209, 209, 210, 215, 218, 218, 218, 218, 218, 221, 221, 222, 224, 226, 226, 226, 226, 226, 226, 226, 234, 238, 285, 285, 288, 288, 333, 575, 575, 575, 583, 583, 583, 583, 583, 584, 584, 584, 584, 584, 584, 587, 588, 588, 588, 593, 599, 599)

    For i = 0 To UBound(arr)
      .GoTo wdGoToPage, , arr(i)
      .Bookmarks("\Page").Range.Delete
   ' Next
     ' MsgBox arr(i)
    Next i
  End With
End Sub