Excel 2013 VBA邮件合并禁止分页符？

Question

我正在尝试使用Excel VBA在Word中创建一对多合并。在Word 2013中手动运行流程时，我已经按照预期的方式工作了。

但是，当我尝试在Excel 2013中自动使用VBA时，它将以某种方式默认并为Excel电子表格中的每个新行插入分页符。这是我的代码，从代码块后面的源代码那里更改而来：

Dim cDir As String
Dim ThisFileName As String

Const WTempName = "HCCMailMerge.docx" 'This is Word Templates name
Dim NewFileName As String

NewFileName = "Testing123"

' Setup directory
cDir = ActiveWorkbook.Path + "\"
ThisFileName = ThisWorkbook.Name

'Open Word Template
Set objMMMD = objWord.Documents.Open(cDir + WTempName)
objMMMD.Activate

'Merge the data
With objMMMD.MailMerge
    .OpenDataSource _
        Name:=cDir + ThisFileName, _
        SQLStatement:="SELECT * FROM `Data$`"
    .Destination = wdSendToNewDocument
    .MainDocumentType = wdCatalog
    .Execute Pause:=False
End With

Automating Mail Merge using Excel VBA

我假设当我更改.MainDocumentType = wdCatalog时它将抑制分页符。但是事实并非如此。

非常感谢您的帮助。

Answer 1