如何在分页符后添加空白页

buxiaodea

各位大神，小弟想在由多张word表格组成的文档里实现表格标题始终在奇数页，所以想当分页符在奇数页时，插入一个空白页，不知道这个代码该怎么写，谢谢！

longwin

再插入一个分页符就可以吧

buxiaodea

longwin 发表于 2024-7-15 15:25
再插入一个分页符就可以吧

因为表格很多，手动插入分页符会很麻烦，所以想用代码

buxiaodea

求大神指导一下

longwin

word：
Sub test()
Dim oTable As Table
    Dim PageNumber As Integer
    For Each oTable In ActiveDocument.Tables
        PageNumber = oTable.Rows(1).Range.Information(wdActiveEndPageNumber)
        If PageNumber Mod 2 = 0 Then
        oTable.Range.Previous(Unit:=wdParagraph).InsertBreak Type:=wdSectionBreakNextPage
        End If
    Next oTable
End Sub

buxiaodea

longwin 发表于 2024-7-17 08:54
word：
Sub test()
Dim oTable As Table

感谢，很好用，谢谢大神！

buxiaodea

longwin 发表于 2024-7-17 08:54
word：
Sub test()
Dim oTable As Table

大神好，上次你的代码很好用，但是我实际用的时候，由于标题后面还有一个班级  这一行，导致程序的实际运行结果是在每个标题后面插入分页符，不知道怎么修改一下程序，麻烦再指导一下，谢谢