我正在尝试使用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
时它将抑制分页符。但是事实并非如此。
非常感谢您的帮助。