word删除指定页面

常规程序因为wps的 .docx 文件是基于段落和节的结构,而不是"物理页",所以无法直接按"第几页"删除

在普通程序里面无法读取到他的页码,但是在宏编程里面他能读取到页码,我们就根据宏编程来这样删除。

程序会自动打开选择要删除的文件夹里面的批量.wps文件,然后你只需要修改这个代码

要删除的页面 = Array(12, 4, 2, 1)

bash 复制代码
Sub 批量删除指定页面()
        Dim 文件夹路径 As String
        Dim 文件名称 As String
        Dim 当前文档 As Document
        Dim 要删除的页面 As Variant
        Dim 总页数 As Integer
        Dim i As Integer
        
        ' 设置要删除的页面(从大到小排序)
        要删除的页面 = Array(12, 4, 2, 1)
        
        ' 选择文件夹
        With Application.FileDialog(msoFileDialogFolderPicker)
            .Title = "请选择包含WPS文件的文件夹"
            If .Show = -1 Then
                文件夹路径 = .SelectedItems(1) & "\"
            Else
                MsgBox "未选择文件夹,操作取消。", vbInformation
                Exit Sub
            End If
        End With
        
        ' 开始处理文件
        文件名称 = Dir(文件夹路径 & "*.wps")
        Do While 文件名称 <> ""
            ' 打开文档
            Set 当前文档 = Documents.Open(FileName:=文件夹路径 & 文件名称)
            总页数 = 当前文档.ComputeStatistics(wdStatisticPages)
            
            ' 循环删除指定页面
            For i = LBound(要删除的页面) To UBound(要删除的页面)
                ' 检查页面是否存在
                If 要删除的页面(i) <= 总页数 Then
                    On Error Resume Next ' 忽略可能的错误
                    
                    ' 特殊处理最后一页
                    If 要删除的页面(i) = 总页数 Then
                        ' 将光标移到文档末尾前
                        Selection.EndKey Unit:=wdStory
                        ' 选中到页首(即最后一页内容)
                        Selection.HomeKey Unit:=wdPage, Extend:=wdExtend
                    Else
                        ' 定位到指定页面
                        Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=要删除的页面(i)
                        ' 选中整页
                        Selection.Bookmarks("\Page").Range.Select
                    End If
                    
                    ' 删除选中内容
                    Selection.Delete
                    On Error GoTo 0 ' 恢复错误处理
                    
                    ' 更新总页数
                    总页数 = 当前文档.ComputeStatistics(wdStatisticPages)
                End If
            Next i
            
            ' 保存并关闭文档
            当前文档.Save
            当前文档.Close
            Set 当前文档 = Nothing
            
            ' 处理下一个文件
            文件名称 = Dir()
        Loop
        
        MsgBox "所有WPS文件处理完成!", vbInformation
    End Sub
相关推荐
海斗星河万里长6 小时前
两款超实用办公插件推荐:Excel聚光灯与Word公文排版
word·excel
BillKu7 小时前
Delphi 5 中操作 Word 表格时禁用鼠标交互
word·delphi
呵呵哒( ̄▽ ̄)"1 天前
专项智能练习(Word)
word
BillKu1 天前
Delphi 5 操作Word表格选区问题解析
word
_kaika12 天前
在 Halo 中导入 Markdown 和 Word 文档
word·开源软件·建站·网站管理·文档导入·网站迁移
会飞的小菠菜2 天前
如何批量将docx、docm等Word文件的页码自动删除?
word·删除·批量·页眉页脚
工科pai2 天前
word运行时错误‘53’,文件未找到:MathPage.WLL,更改加载项路径完美解决
word·mathtype·word粘贴报运行时错误53
gsgbgxp3 天前
LaTeX论文转word插入mathtype公式
word
我命由我123454 天前
Word - Word 查找文本中的特定内容
运维·经验分享·笔记·word·运维开发·文档·文本