excel VBA 生成word文件添加一个表格后再另起一段添加文字！！大神请进

geweier

想达到这种效果

Sub test()
Dim wdapp As Object
Set wdapp = CreateObject("Word.Application")
Dim a As String
With wdapp
    .Documents.Add
    .Selection.TypeText Text:="复核意见"
    .Selection.TypeParagraph
    .Documents(1).Tables.Add .Selection.Range, 10, 2
    .Documents(1).Tables(1).Style = "网格型"
    .Documents(1).Tables(1).Range.Cells(1).Range = Range("j21")
    .Documents(1).Tables(1).Range.Cells(2).Range = Range("k21")
    .Documents(1).Tables(1).Range.Cells(3).Range = Range("b4")
    .Documents(1).Tables(1).Range.Cells(4).Range = Range("e4")
    .Documents(1).Tables(1).Range.Cells(5).Range = Range("j6")
    .Documents(1).Tables(1).Range.Cells(6).Range = Range("k6")
    .Documents(1).Tables(1).Range.Cells(7).Range = Range("j8")
    .Documents(1).Tables(1).Range.Cells(8).Range = Range("k8")
    .Documents(1).Tables(1).Range.Cells(9).Range = Range("b7")
    .Documents(1).Tables(1).Range.Cells(10).Range = Range("e7")
    .Documents(1).Tables(1).Range.Cells(11).Range = Range("b9")
    .Documents(1).Tables(1).Range.Cells(12).Range = Range("e9")
    .Documents(1).Tables(1).Range.Cells(13).Range = Range("j9")
    .Documents(1).Tables(1).Range.Cells(14).Range = Range("k9")
    .Documents(1).Tables(1).Range.Cells(15).Range = Range("c21")
    .Documents(1).Tables(1).Range.Cells(16).Range = Range("f21")
    .Documents(1).Tables(1).Range.Cells(17).Range = Range("c29")
    .Documents(1).Tables(1).Range.Cells(18).Range = Range("g29") & "万元"
    .Documents(1).Tables(1).Range.Cells(19).Range = Range("f35")
    .Documents(1).Tables(1).Range.Cells(20).Range = Range("h35")
    a = Range("k4")
    .Documents(1).SaveAs ThisWorkbook.Path & "复核意见-" & a & ".docx"
    .Quit
End With
    Selection.TypeParagraph
    Selection.TypeText Text:="一、规范性问题"
End Sub
问题，代码如上述写，总是提示以下错误

LWQHLWQH

Sub test()
Dim wdapp As Object
Set wdapp = CreateObject("Word.Application")
Dim a As String
With wdapp
     .Documents.Add
     .Selection.TypeText Text:="复核意见"
     .Selection.TypeParagraph
     .Documents(1).Tables.Add .Selection.Range, 10, 2
     .Documents(1).Tables(1).Style = "网格型"
     .Documents(1).Tables(1).Range.Cells(1).Range = Range("j21")
     .Documents(1).Tables(1).Range.Cells(2).Range = Range("k21")
     .Documents(1).Tables(1).Range.Cells(3).Range = Range("b4")
     .Documents(1).Tables(1).Range.Cells(4).Range = Range("e4")
     .Documents(1).Tables(1).Range.Cells(5).Range = Range("j6")
     .Documents(1).Tables(1).Range.Cells(6).Range = Range("k6")
     .Documents(1).Tables(1).Range.Cells(7).Range = Range("j8")
     .Documents(1).Tables(1).Range.Cells(8).Range = Range("k8")
     .Documents(1).Tables(1).Range.Cells(9).Range = Range("b7")
     .Documents(1).Tables(1).Range.Cells(10).Range = Range("e7")
     .Documents(1).Tables(1).Range.Cells(11).Range = Range("b9")
     .Documents(1).Tables(1).Range.Cells(12).Range = Range("e9")
     .Documents(1).Tables(1).Range.Cells(13).Range = Range("j9")
     .Documents(1).Tables(1).Range.Cells(14).Range = Range("k9")
     .Documents(1).Tables(1).Range.Cells(15).Range = Range("c21")
     .Documents(1).Tables(1).Range.Cells(16).Range = Range("f21")
     .Documents(1).Tables(1).Range.Cells(17).Range = Range("c29")
     .Documents(1).Tables(1).Range.Cells(18).Range = Range("g29") & "万元"
     .Documents(1).Tables(1).Range.Cells(19).Range = Range("f35")
     .Documents(1).Tables(1).Range.Cells(20).Range = Range("h35")
     a = Range("k4")
     .Selection.TypeParagraph
     .Selection.TypeText Text:="一、规范性问题"
      .Documents(1).SaveAs ThisWorkbook.Path & "\复核意见-" & a & ".docx"
     .Quit
End With

End Sub