如何在VBA中清除选择

我正在使用一个简单的按钮在word中复制一个表。
守则：

Private Sub CommandButton1_Click()
 ActiveDocument.Tables(2).Select
 Selection.Copy
 Selection.Paste
End Sub

---

一个非常简单的代码。当我第一次单击按钮时，确定。但是，在这之后，每当我单击按钮时，它都会复制所有表。我认为这是因为选择不是空的。我如何才能简单地清除所选内容？

要清除所选内容，请将以下内容添加到sub的末尾：

    CutCopyMode = False

请注意，您的代码似乎没有添加第二个表的副本，而是将第二个表中每一行的副本附加到同一个表的末尾。我不确定这是不是故意的

要将整个表复制到文档末尾，请执行以下操作：

    ActiveDocument.Tables(2).Select
    Selection.Copy
    Selection.EndKey Unit:=wdStory
    Selection.TypeParagraph
    Selection.Paste

---

若要清除所选内容，请将其添加到sub的末尾：

    CutCopyMode = False

请注意，您的代码似乎没有添加第二个表的副本，而是将第二个表中每一行的副本附加到同一个表的末尾。我不确定这是不是故意的

要将整个表复制到文档末尾，请执行以下操作：

    ActiveDocument.Tables(2).Select
    Selection.Copy
    Selection.EndKey Unit:=wdStory
    Selection.TypeParagraph
    Selection.Paste

这有用吗

Private Sub CommandButton1_Click()
    ActiveDocument.Tables(2).Rows(1).Select
    Selection.Copy
    Selection.Paste
End Sub

这有用吗

Private Sub CommandButton1_Click()
    ActiveDocument.Tables(2).Rows(1).Select
    Selection.Copy
    Selection.Paste
End Sub

---

是的，你是对的，它是错的。我想将复制的表追加到文档末尾。我正在尝试：Selection.MoveEnd before Selection.Paste，有什么提示吗？这是我第一次使用VBA。谢谢你的帮助，它工作得很好。是的，你是对的，它是错的。我想将复制的表追加到文档末尾。我正在尝试：Selection.MoveEnd before Selection.Paste，有什么提示吗？这是我第一次使用VBA。谢谢你的帮助，效果很好。