excel打开Word代码提示“参数无效”

是玩都不精

附件中有两个文件，一个Word文档，一个excel文件。Word中单独运行宏代码是可以的。现在想从excel中生成数组后，打开Word文档，并达到和Word中一样的效果。第一页运行正常，但想复制生成第2页时提示出错（excel中的代码是根据Word中的代码改动而成）。多次网搜解决办法未果。我先在vba板块发帖，可能板块选错了，这里再发请高手出手帮助。先谢。 封面生成测试.rar (108.59 KB, 下载次数: 5)

2017-5-10 17:51 上传

点击文件名下载附件

jiminyanyan

Private Sub CommandButton1_Click()
Dim docApp As Object, MyArray
Set docApp = CreateObject("Word.Application")
    m = 4:      s = Range("a65536").End(xlUp).Row:      t = 1
    MyArray = WorksheetFunction.Transpose(Range("a1:a" & s))
With docApp
    .Documents.Open ThisWorkbook.Path & "\义教资料封面 - 9.doc":        .Visible = True
    .ActiveDocument.Content.Copy
    Do
        .ActiveDocument.Paragraphs(m).Range.InsertBefore MyArray(t)
        '.Selection.EndKey Unit:=wdStory
        .Selection.EndKey Unit:=6
        '.Selection.InsertBreak Type:=wdPageBreak
        .Selection.InsertBreak Type:=7
        .Selection.Paste
        m = m + 7:          y = y + 1:          t = t + 1
    Loop Until y = UBound(MyArray)
End With
Set docApp = Nothing
End Sub

jiminyanyan

..........

是玩都不精

jiminyanyan 发表于 2017-5-10 21:10
..........

多谢大神相助。完全可用。我还想追问一句： .Selection.EndKey Unit:=wdStory与  .Selection.EndKey Unit:=6什么区别，.Selection.InsertBreak Type:=wdPageBreak与 .Selection.InsertBreak Type:=7又有什么不同？

是玩都不精

多谢大神相助，完全可用。我还想追问一句：  Selection.EndKey Unit:=wdStory与  .Selection.EndKey Unit:=6有什么区别，  .Selection.InsertBreak Type:=wdPageBreak与   .Selection.InsertBreak Type:=7又有什么不同？

jiminyanyan

是玩都不精 发表于 2017-5-11 08:01
多谢大神相助，完全可用。我还想追问一句：  Selection.EndKey Unit:=wdStory与  .Selection.EndKey Unit:= ...

两者在word  vba是一样的，excel  vba 只识别数字。。。。。

是玩都不精

jiminyanyan 发表于 2017-5-11 12:42
两者在word  vba是一样的，excel  vba 只识别数字。。。。。

未及时回复，见谅。现在明白了。再次拜谢。