Question

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

Object不支持此属性或方法。

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

我该怎么做？

这是代码中不起作用的部分 - 实际上是代码的最后一行，但我认为我之前也应该告诉你：

        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

使用excel宏在单词中插入分页符

1 个答案: