使用excel宏在word中插入分页符

我正在创建一个宏，将excel中的数据复制到word中。在我将单元格范围复制到word中后，无法让宏插入分页符。我得到以下错误

对象不支持此属性或方法

我猜这是因为Word中复制的数据仍然高亮显示，在尝试插入分页符之前，我需要在新复制日期的底部获得一个光标

我该怎么做

这是一段不起作用的代码-实际上是代码的最后一行，但我想我也应该在前面向您展示：

        Range("A1:F25").Select
         Selection.Copy

         appWD.Documents.Add

         appWD.Selection.PasteSpecial Link:=True, DataType:=wdPasteEnhancedMetafile
         DoEvents


        appWD.InsertBreak Type:=wdPageBreak

请尝试以下方法：

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

资料来源：

---

appWD是什么类型的对象？我将appWD定义如下：Dim appWD作为对象集appWD=CreateObject（“Word.Application”）我尝试了，但收到了运行错误“9118”：行appWD.Selection.InsertBreak Type:=wdpagebreak处的参数值超出了可接受的范围看起来它没有将折叠放在开头，但我确实在复制数据的开头得到了一个光标。有趣的是，我认为光标会跟随它。一旦我们找到了.InsertBreak，我们就可以开始了。我已经有一段时间没有在VBA中玩弄过任何东西了，尝试一下，.InsertBreak（wdPageBreak）可能吗？阅读本文，看起来使用wdCollapseEnd/wdPageBreak类型可能会有问题。尝试改用枚举值。另外，默认值似乎是pagebreak，因此您可能不必说Type:=wdPageBreak。我已经编辑了我的回复，我会读这篇文章。我尝试了你之前的评论，但没有效果