使用Access VBA操作Word：多列布局恢复为单列失败求解决方法

你当前代码无法恢复单列的核心问题是**SetCount numcolumns:=0 的参数错误**——Word的TextColumns.SetCount方法中，文本列的合法数量最小值是1，传入0不会生效。

要恢复单列布局，只需要将numcolumns设为1即可，正确代码如下：

.InsertBreak wdSectionBreakContinuous
With w.ActiveDocument.Sections(4).PageSetup.TextColumns
    .SetCount numcolumns:=1
    ' 若需要确保列间距等默认单列设置，可添加 .EvenlySpaced = True（可选）
End With

另外补充两个优化点：

• 你之前设置3列的代码可以简化，直接用SetCount numcolumns:=3即可，无需先设2再调用.Add：

  .InsertBreak wdSectionBreakContinuous
  With w.ActiveDocument.Sections(2).PageSetup.TextColumns
      .SetCount numcolumns:=3
      .EvenlySpaced = True
  End With
  

• 设置2列的代码同理，直接SetCount numcolumns:=2更简洁，避免冗余操作。

内容的提问来源于stack exchange，提问作者Patterson Park Music