分节符最后的空页如何删除

如下：

直接删除会出现这个情况：

最后一页的横向设置丢失了。

正确方法：如何避免删除分节符后页面布局发生变化_哔哩哔哩_bilibili

Word:先按Ctrl+Shift+End选择所有内容，然后Delete或Ctrl+x即可删除；

WPS：页面设置：

确定后再删除就可以了。

VBA处理：录制宏代码

Sub Macro1()
'
' Macro1 Macro
' 宏由 Administrator 录制，时间: 2026/03/17
'

'
    With Selection.Range.PageSetup.TextColumns
        .EvenlySpaced = -1
        .LineBetween = 0
        .SetCount NumColumns:=1
        .Spacing = 0
    End With
    ActiveDocument.Range(1080, 1080).InsertBreak Type:=wdSectionBreakNextPage
    With ActiveDocument.Range(1081, 1083).PageSetup
        .MirrorMargins = 0
        With .TextColumns
            .SetCount NumColumns:=1
            .EvenlySpaced = -1
            .LineBetween = 0
            .SetCount NumColumns:=1
            .Spacing = 0
        End With
        .Orientation = wdOrientLandscape
        .GutterPos = wdGutterPosLeft
        .TopMargin = 85.038689
        .BottomMargin = 84.471764
        .LeftMargin = 57.542847
        .RightMargin = 71.432503
        .Gutter = 0
        .PageWidth = 841.883057
        .PageHeight = 595.270813
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .Orientation = wdOrientLandscape
        .GutterPos = wdGutterPosLeft
        .TopMargin = 85.038689
        .BottomMargin = 84.471764
        .LeftMargin = 57.542847
        .RightMargin = 71.432503
        .Gutter = 0
        .PageWidth = 841.883057
        .PageHeight = 595.270813
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .HeaderDistance = 0
        .FooterDistance = 49.321999
        .OddAndEvenPagesHeaderFooter = -1
        .DifferentFirstPageHeaderFooter = 0
        .LayoutMode = wdLayoutModeDefault
    End With
    With Options
        .MeasurementUnit = wdCentimeters
        .UseCharacterUnit = True
    End With
    Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
End Sub

练手文件：