Word VBA合并文档时，横向文档的Section Break自动转为连续型问题求助

背景 #

• 开发VBA宏用于批量合并文件夹内的Word文档，要求每个源文档单独占据一个节，且保留原文档的页眉、页脚及页面布局
• 源文档结构：受保护的「填写表单」节（包含带内容控件的表格）→ Next Page分节符 → 不受保护的空白表格节
• 宏处理流程：解除源文档保护 → 在目标文档末尾插入Next Page分节符 → 将源文档页面布局转移至目标文档新节 → 插入源文档内容

问题现象 #

• 处理纵向页面的文档时一切正常，但处理横向页面的文档时，插入的Next Page分节符会自动转为Continuous类型
• 尝试连续插入两个Next Page分节符，第二个仍会被转为连续型；手动删除连续分节符时，所有已插入的Next Page分节符都会同步变为连续型
• 测试过.InsertFile和.FormattedText两种内容插入方式，问题均复现（使用Word 365）

问题代码段 #

With DocTgt
      Set Rng = .Range.Characters.Last
      With Rng
        .Collapse wdCollapseEnd
         'Double section break required to prevent adding landscape files changing break 
         'from NextPage to Continuous
        .InsertBreak Type:=wdSectionBreakNextPage
        .InsertBreak Type:=wdSectionBreakNextPage 
       .Collapse wdCollapseEnd
        Call LayoutTransfer(DocSrc, DocTgt)
        '.FormattedText = DocSrc.Range.FormattedText
        .InsertFile FileName:=strFolder & "\" & strFile
      End With
...

解决方案 #

问题根源在于Word会根据插入内容的页面布局自动调整分节符类型，尤其是横向文档的布局会触发分节符的自动转换。可以通过以下代码调整解决：

With DocTgt
    Set Rng = .Range.Characters.Last
    With Rng
        .Collapse wdCollapseEnd
        '插入单个Next Page分节符
        .InsertBreak Type:=wdSectionBreakNextPage
        
        '获取新插入的节，强制锁定分节符类型为Next Page
        Dim targetSection As Section
        Set targetSection = DocTgt.Sections(DocTgt.Sections.Count)
        targetSection.PageSetup.SectionStart = wdSectionNewPage
        
        '将源文档布局转移到目标节（修改LayoutTransfer参数为目标节，而非整个文档）
        Call LayoutTransfer(DocSrc, targetSection)
        
        .Collapse wdCollapseEnd
        '插入源文档内容时，排除源文档的最后一个分节符，避免干扰目标文档分节设置
        Dim srcContentRange As Range
        Set srcContentRange = DocSrc.Range
        '截断范围到源文档最后一个节的起始位置之前，排除末尾分节符
        srcContentRange.End = DocSrc.Sections(DocSrc.Sections.Count).Range.Start - 1
        .FormattedText = srcContentRange.FormattedText
    End With
End With

关键调整说明 #

1. 锁定分节符类型：插入分节符后立即获取对应节对象，强制设置SectionStart = wdSectionNewPage，防止后续布局调整或内容插入时被Word自动修改
2. 排除源文档末尾分节符：插入内容时不包含源文档的最后一个分节符，避免源文档的分节设置覆盖目标文档的分节符属性
3. 精准传递布局：修改LayoutTransfer过程的参数为目标节而非整个目标文档，确保布局仅作用于当前新节，不会影响其他节

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