寻求批量删除WORD自定义页的VBA

黄培

尊敬的各位高手朋友：



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

沈默00

到VBA版块去问下，，

13570449347

Sub DeletePages()
    Dim startPage As Long
    Dim endPage As Long
    Dim doc As Document
    Dim rng As Range
    Set doc = ActiveDocument
    startPage = InputBox("第几页")
    endPage = InputBox("到第几页")
    If startPage < 1 Or endPage > doc.Content.Information(wdNumberOfPagesInDocument) Then
        MsgBox "无效页码", vbExclamation
        Exit Sub
    End If
    Set rng = doc.Range
    rng.Start = doc.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=startPage).Start
    rng.End = doc.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=endPage + 1).Start
    rng.Delete
    MsgBox "第" & startPage & "页到第" & endPage & "页的内容已删除。", vbInformation
End Sub

黄培

沈默00 发表于 2024-8-27 08:09
到VBA版块去问下，，

感谢提示，我去问问，希望得到满意结果！

沈默00

黄培 发表于 2024-8-27 09:17
感谢提示，我去问问，希望得到满意结果！

专业的事还要是专业的老师回答，，
平常不怎么研究WORD,,如果是EXCEL里的我倒是可以帮你写下

黄培

沈默00 发表于 2024-8-27 09:28
专业的事还要是专业的老师回答，，
平常不怎么研究WORD,,如果是EXCEL里的我倒是可以帮你写下

非常棒！感谢群里的朋友，一些工作中繁琐 重复的工作在这里得到解决！非常开心！向大家学习！