寻求WORD删除自定义页VBA

黄培

尊敬的各位高手朋友：






    今日遇到一个小问题，我们日常编辑的WORD文档会有很多页，假设已经编辑了100页，我们想删除这其中的第8页，第12页，第50页，第99页（随意举例），好像看过视频，这个需要VBA宏命令才可实现，请问 我从哪里可以获取到这个法宝呢？这对于大文章的删除，真是太方便了！故在这里问询  感谢大家！

gwjkkkkk

Option Explicit
Sub test()
    Dim ar(), br, i&, n&, strPut$
   
    Application.ScreenUpdating = False
   
    With ActiveDocument
        n = .BuiltInDocumentProperties("Number of Pages")
        For i = 1 To n
            Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=i
            ReDim Preserve ar(1 To i)
            Set ar(i) = .Range(Selection.Range.Start)
        Next i
        For i = 1 To UBound(ar) - 1
            Set ar(i) = .Range(ar(i).Start, ar(i + 1).Start)
            ar(i).Select
        Next i
    End With
   
    strPut = InputBox("请输入删除的页码,如5,6,9形式", "?", "3,5")
    br = Split(strPut, ",")
   
    On Error Resume Next
    For i = 0 To UBound(br)
        ar(br(i)).Delete
    Next i
   
    Application.ScreenUpdating = True
    Beep
End Sub