Office 365中Word最后一页高度调整宏失效问题求助

关于WordBasic.PageSetupPaper的文档说明 #

WordBasic.PageSetupPaper是Word早期版本遗留的兼容命令，属于旧版WordBasic接口的一部分。微软目前已不再更新该命令的官方文档，仅在一些旧版Office历史资料或社区讨论中能找到零星信息。在Office 365中，该命令的参数行为发生了变更，原有的ApplyPropsTo:=1（仅应用于当前页）逻辑已无法正常生效，导致设置会覆盖所有页面。

Office 365 VBA下的解决方案 #

要实现仅修改最后一页的页面高度，核心思路是给最后一页单独创建一个独立节，然后针对该节的页面设置进行调整。以下是适配的代码：

Sub SetLastPageHeight(targetHeightCm As Double)
    Dim doc As Document
    Dim lastSection As Section
    Dim rangeLastPageStart As Range
    
    Set doc = ActiveDocument
    
    ' 定位到最后一页的起始位置
    Set rangeLastPageStart = doc.GoTo(What:=wdGoToPage, Which:=wdGoToLast)
    ' 插入下一页分节符，将最后一页拆分为独立节
    rangeLastPageStart.InsertBreak Type:=wdSectionBreakNextPage
    
    ' 获取最后一节
    Set lastSection = doc.Sections(doc.Sections.Count)
    
    ' 设置最后一节的页面高度（传入的参数为厘米，需转换为磅）
    With lastSection.PageSetup
        .PaperSize = wdPaperA4 ' 对应原代码的PaperSize:=9（A4）
        .TopMargin = CentimetersToPoints(0) ' 对应原代码的TopMargin:=0
        .PageHeight = CentimetersToPoints(targetHeightCm + 0.5) ' 保留原逻辑的+0.5厘米偏移
        .Orientation = wdOrientPortrait ' 对应原代码的Orientation:=1（纵向）
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False ' 对应原代码的FacingPages:=0
    End With
End Sub

使用说明 #

• 调用时直接传入目标高度（单位：厘米），例如SetLastPageHeight(10)表示将最后一页高度设为10.5厘米（含原逻辑的+0.5偏移）
• 代码通过插入分节符将最后一页独立为单独节，确保页面设置仅作用于最后一页
• 所有参数均使用Word VBA的标准枚举，避免依赖旧版WordBasic的数字参数，提升兼容性

自动计算最后一页高度的扩展方案 #

如果需要根据最后一页的实际内容高度自动调整页面高度，可使用以下代码：

Sub AutoSetLastPageHeight()
    Dim doc As Document
    Dim lastPageRange As Range
    Dim contentHeightCm As Double
    
    Set doc = ActiveDocument
    
    ' 获取最后一页的内容范围
    Set lastPageRange = doc.GoTo(What:=wdGoToPage, Which:=wdGoToLast)
    Set lastPageRange = lastPageRange.GoTo(What:=wdGoToBookmark, Name:="\page")
    
    ' 计算内容高度（转换为厘米，加上1厘米的上下边距缓冲，可按需调整）
    contentHeightCm = PointsToCentimeters(lastPageRange.Height) + 1
    
    ' 调用设置函数
    SetLastPageHeight contentHeightCm
End Sub

内容的提问来源于stack exchange，提问作者ManniAT