软件:excel
版本:2007
我有个excel档案里面的表格想贴入word内
每贴一个表格就插入换页符号 把下一个表格贴到下一页去
vba这样写:
Set WdObj = CreateObject("Word.Application") '设定开启word程式
With WdObj
.Visible = False '执行时候不要看见word
.Documents.Add '增加一个新的word档案
a = WorksheetFunction.Max(Range("H1:H100")) + 1
Range("A1:G" & a).Copy
.Selection.PasteExcelTable False, False, False
.Selection.TypeParagraph
.Selection.InsertBreak Type:=wdPageBreak
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
都会错在这一行
不知道正确的插入换页符号在这边要怎么写?
b = WorksheetFunction.Max(Range("N1:N100")) + 1
Range("I1:M" & b).Copy
.Selection.PasteExcelTable False, False, False