如何将Excel导出至Word时设置文档为横向？VBA代码调试求助

你的代码无法设置横向页面，核心原因是后期绑定（CreateObject("Word.Application")）模式下，Word的内置常量wdOrientLandscape未被定义，直接调用会失效或报错。同时调整设置页面方向的代码位置，就能解决问题。

以下是修改后的完整代码：

Sub Export_EU_Quote()
    Dim WdObj As Object
    Dim wdDoc As Object ' 直接引用新建文档，避免依赖ActiveDocument
    
    Set WdObj = CreateObject("Word.Application")
    WdObj.Visible = True
    
    ' 创建Word文档后立即设置横向页面
    Set wdDoc = WdObj.Documents.Add
    ' 后期绑定用数值1代替wdOrientLandscape（Word中该常量对应值为1）
    wdDoc.PageSetup.Orientation = 1
    
    ' 直接复制目标区域，避免冗余的Select操作
    Range("A1:E50").Copy
    
    wdDoc.Selection.PasteExcelTable _
        LinkedToExcel:=False, _
        WordFormatting:=False, _
        RTF:=False
    
    wdDoc.Range.ParagraphFormat.SpaceAfter = 0
    
    Application.CutCopyMode = False
    
    Set wdDoc = Nothing
    Set WdObj = Nothing
End Sub

关键改动说明： #

• 新增wdDoc对象变量：直接绑定新建的Word文档，比依赖ActiveDocument更稳定，避免多文档场景下的错误。
• 用数值替代常量：后期绑定未加载Word对象库，无法识别wdOrientLandscape，直接用对应数值1（纵向为0）即可生效。
• 优化复制逻辑：去掉Select和Selection.Copy，直接调用Range.Copy，是VBA的最佳实践，避免不必要的工作表激活。

如果希望代码可读性更好，也可以在代码开头手动定义常量：

Const wdOrientLandscape As Integer = 1
Const wdOrientPortrait As Integer = 0

之后就可以用wdDoc.PageSetup.Orientation = wdOrientLandscape来设置横向页面。

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