如何用WORD VBA 删除分页符

Question

我的WORD文件用分页符分成了两部分，其中前面一部分是没有什么用的，因为文件很多，所以想用VBA把前面一部分删除， 请问代码需要如何写呢？请教大家帮忙下面的图片是用通配符查询的结果

Answer 1

方法一：用“Delete”键删除。

1.打开word文档，单击“开始”菜单下的“显示/隐藏编辑标记”命令按钮，使分页符显示。

2.分别将插入点定位到分页符前面，按“Delete”键删除分页符。

方法二：用“替换”命令删除。

1.打开word文档，单击“开始”菜单下的“替换”命令，在弹出的“查找和替换”对话框中单击“查找内容”右侧的输入框，单击“更多”按钮，如下图：

2.单击“特殊格式”按钮，单击“手动分页符”命令，如下图：

3.在“查找和替换”对话框中单击“替换为”右侧的输入框，单击“全部替换”按钮，如下图

4.在弹出的提示框中单击“确定”，如下图：

Answer 2

用“Delete”键删除。

1.打开word文档，单击“开始”菜单下的“显示/隐藏编辑标记”命令按钮，使分页符显示。
2.分别将插入点定位到分页符前面，按“Delete”键删除分页符。追问

请给出VBA代码，因为我有好几个这样的文件，希望能够用VBA更省力的处理，你说的这个方法我也会

Answer 3

以下代码演示删除单个 Word 文档中的分页符之前的所有内容：

Sub RemoveContentBeforePageBreak()
    With Selection
        ' 确保光标在文档开头.
        .HomeKey wdStory
        
        ' /* 找到第一个分页符. */
        If .Find.Execute("^m") Then
            ' 删除分页符之前的所有内容.
            ActiveDocument.Range(0, .End + 1).Delete
        End If
    End With
End Sub

批量删除请配合循环语句使用

追问

嗯嗯，看起来就是这种东西，虽然我看不太懂，但是我觉得运行起来应该是可以的，刚看到你的答案，采纳的晚了一点，抱歉啊，很专业的回答

本回答被提问者采纳

Answer 4

进入大纲视图（视图－－文档视图－－大纲视图），选中不必须的分页符，删除。

Answer 5

发个样本文件试下就知道了，一般我去EH论坛找现成vba代码改下就ok。vbe里按f2看对象浏览器，也能找到分页符对应的是什么名字。