使用Excelmacros在Word中插入分页符

我正在创build一个将数据从excel复制到单词的macros。 在我将单元格范围复制到单词后，我无法获取macros插入分页符。 我得到以下错误

对象不支持这个属性或方法。

我猜是发生这种情况，因为在Word中复制的数据仍然突出显示，我需要在新的复制date的底部获得一个游标，然后尝试插入分页符。

我该怎么做呢？

这是代码的一部分不工作 – 实际上是代码的最后一行，但我想我应该以前也显示你：

Range("A1:F25").Select Selection.Copy appWD.Documents.Add appWD.Selection.PasteSpecial Link:=True, DataType:=wdPasteEnhancedMetafile DoEvents appWD.InsertBreak Type:=wdPageBreak 

Answer 1

试试这个：

 With appWD.Selection .Collapse Direction:=0 .InsertBreak Type:=7 End With 

资料来源： http : //msdn.microsoft.com/en-us/library/microsoft.office.interop.word.selection.insertbreak(v=office.14).aspx

http://msdn.microsoft.com/en-us/library/microsoft.office.interop.word.selection.collapse(v=office.14).aspx

http://www.utteraccess.com/forum/Error-9118-protect-Docu-t1123894.html