如何通过Excel VBA将新建Word文档设置为横向排版

问题场景 #

尝试将Excel表格数据导出到新建Word文档，要求文档为横向排版+两栏布局，目前两栏设置成功，但横向排版无法生效。

问题原因 #

代码采用Late Binding（CreateObject("Word.Application")）创建Word对象，这种模式下Excel无法识别Word的内置常量（如wdOrientLandscape），导致页面方向设置失效。

解决方案 #

有两种修复方式：

方式1：直接使用常量对应的数值 #

Word中wdOrientLandscape（横向）的数值为1，wdOrientPortrait（纵向）为0，直接替换代码中的常量：

.PageSetup.Orientation = 1

方式2：手动定义常量 #

在代码开头的变量声明区域添加常量定义：

Const wdOrientLandscape As Integer = 1

修正后的完整代码 #

同时修复了原代码中表格循环索引越界的问题：

Sub generate_word_doc()

Dim objWord
Dim objDoc
Dim objSelection
Dim i, j As Integer
Dim ws As Worksheet
Dim row_count, col_count As Integer
' 手动定义Word常量（方式2用）
Const wdOrientLandscape As Integer = 1

Set ws = ThisWorkbook.Sheets("Roster")
row_count = WorksheetFunction.CountA(Range("C1", Range("C1").End(xlDown)))
col_count = WorksheetFunction.CountA(Range("C1", Range("C1").End(xlToRight)))

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add
Set objSelection = objWord.Selection

objWord.Visible = True
objWord.Activate

With objDoc
    ' 方式1：直接用数值1，方式2用wdOrientLandscape
    .PageSetup.Orientation = 1
    .PageSetup.TextColumns.SetCount NumColumns:=2
    .PageSetup.LeftMargin = 18
    .PageSetup.MirrorMargins = True
End With

Set RosterTable = objDoc.Tables.Add(objSelection.Range, row_count, col_count)

With RosterTable
    With .Borders
        .Enable = True
        .OutsideColor = RGB(0, 0, 0)
        .InsideColor = RGB(0, 0, 0)
    End With
    .Rows(1).Shading.BackgroundPatternColor = RGB(221, 221, 221)

    ' 修正循环索引：表格行从1开始，避免越界
    For i = 1 To row_count
        For j = 1 To col_count
            .Cell(i, j).Range.InsertAfter ws.Cells(i + 2, j + 2).Text
        Next j
    Next i
End With

End Sub

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