如何在VBA中清除选择

Question

我使用一个简单的按钮来复制一个表格 代码：

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

一个非常简单的代码。当我第一次点击按钮确定。但是，在我单击按钮之后，它会复制所有表。我认为它发生是因为Selection不为空。如何清除选择？

Answer 1

要清除选择，请将其添加到子结尾：

    CutCopyMode = False

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

将整个表格复制到文档的末尾：

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

Answer 2

这有帮助吗？

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