求助一个插入分页符的问题

jiminyanyan

如：一个文档中有４页(附件如下)，在每一页后面插入一个分页符，请老师帮忙写个代码？

EH2003

布局——分隔符——分页符
Sub test()
    Selection.InsertBreak Type:=0
    ShowVisualBasicEditor = True
End Sub

jiminyanyan

EH2003 发表于 2017-4-6 16:41
布局——分隔符——分页符
Sub test()
    Selection.InsertBreak Type:=0

谢谢，但是我要每页后面都插入一个分页符

duquancai

Sub shishi()
    Dim doc As Document
    Set doc = ActiveDocument
    For i = doc.ComputeStatistics(2) To 1 Step -1
        With doc.ActiveWindow.ActivePane.Pages(i).Rectangles(1).Range
            If Right(.Text, 1) = Chr(13) Or Right(.Text, 1) = Chr(11) Then
                .End = .End - 1: .Collapse 0: .InsertBreak 0: .Delete
            Else
                .Collapse 0: .InsertBreak 0
            End If
        End With
    Next
End Sub

jiminyanyan

写了一个，但是会产生空白页．．．
Option Explicit
Sub jimin()
    Dim NumberPages As Integer, SAP As Byte, i As Integer
    Dim lngStart As Long, lngEnd As Long, myRange As Range
    'SAP = VBA.InputBox("请输入每个文件的分页数", "ExcelHome", Default:=1)
    SAP = 1
    With ThisDocument
        '取得本文档的总页数
        NumberPages = .Content.Information(wdNumberOfPagesInDocument)
        'MsgBox NumberPages
        Application.ScreenUpdating = False    '关闭屏幕更新
        '将分节符替换为分页符
        .Content.Find.Execute findtext:="^b", Replacewith:="^m", Replace:=wdReplaceAll
        For i = 1 To NumberPages Step SAP    '进行一个循环
            '取得第一个分页的起始位置
            lngStart = .GoTo(wdGoToPage, wdGoToNext, , i).Start
            '取得第一个分页的最后位置(是下一页的开始位置)
            lngEnd = VBA.IIf(i + SAP > NumberPages, .Content.End, .GoTo(wdGoToPage, wdGoToNext, , i + SAP).Start)
            '定义一个RANGE对象
            Set myRange = .Range(lngStart, lngEnd)
            '            myRange.Select
            With myRange
                .Collapse Direction:=wdCollapseEnd
                .InsertBreak Type:=wdPageBreak
            End With
        Next
    End With
    Application.ScreenUpdating = True    '恢复屏幕更新
End Sub

jiminyanyan

duquancai 发表于 2017-4-6 21:04
Sub shishi()
    Dim doc As Document
    Set doc = ActiveDocument

谢谢老师，测试了一下，第一页第一句就被分页了，麻烦老师再看一下．．．．

duquancai

jiminyanyan 发表于 2017-4-6 21:57
谢谢老师，测试了一下，第一页第一句就被分页了，麻烦老师再看一下．．．．

你到底需求是啥？？？？？？？

jiminyanyan

duquancai 发表于 2017-4-6 22:06
你到底需求是啥？？？？？？？

我想实现每一页的增减内容，不影响其它页内容的位置．．．．．如在第一页删除掉几行，其他页的内容位置还是不变．

duquancai

jiminyanyan 发表于 2017-4-6 21:57
谢谢老师，测试了一下，第一页第一句就被分页了，麻烦老师再看一下．．．．

附件，点击按钮

duquancai

duquancai 发表于 2017-4-6 22:22
附件，点击按钮

更改过了，在插入分页符之前，删除文档的所有分页符！！！