MS Word VBA 复制和粘贴行

Question

我的代码有问题，我不确定它为什么不起作用。我想将此附加到 MS word 上的一个按钮上，该按钮允许我复制表格中的几行并将它们粘贴到最后。附件是我到目前为止的代码。任何帮助将不胜感激。

 Sub Add_Facility10_Click()
      ActiveDocument.Tables(2).Rows(1).Range.Copy
      ActiveDocument.Tables(2).Rows(2).Range.Copy
      ActiveDocument.Tables(2).Rows(3).Range.Copy
      ActiveDocument.Tables(2).Rows(4).Range.Copy
      ActiveDocument.Tables(2).Rows(5).Range.Copy
      ActiveDocument.Tables(2).Rows(6).Range.Copy
      ActiveDocument.Tables(2).Rows.Range.Last.Cells.Paste

 End Sub

Answer 1

你不能像那样复制行。本质上，您将它们复制到剪贴板，您一次只能访问一个。因此，您必须在复制后粘贴每一个。试试这个：

Option Explicit

Sub Add_Facility10_Click()
    Dim i As Integer
    For i = 1 To 6
        ActiveDocument.Tables(2).Rows(i).Select
        Selection.Copy
        ActiveDocument.Tables(2).Rows.Add
        ActiveDocument.Tables(2).Rows(ActiveDocument.Tables(2).Rows.Count).Range.Paste
        ActiveDocument.Tables(2).Rows.Last.Delete
    Next i
End Sub