word vba 表格复制出错

江关民

Sub TEXTAA()

ThisDocument.Tables(1).Range.Copy

For i = 2 To 30

ThisDocument.Tables(1).Range.Copy

ThisDocument.Tables(i - 1).Range.Select

Selection.Collapse wdCollapseEnd

Selection.TypeText vbNewLine & vbNewLine & vbNewLine

ThisDocument.Tables(i - 1).Range.Select

Selection.Move wdLine, 2

Selection.Paste

[tr][td]

    Next

End Sub

表1

vbee

复制一张表，就变31张表了，所以2 to 30 就对不上号了