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

MS Word VBA复制和粘贴行

1 个答案: