vba - 如何清除 VBA 中的选择

Question

我正在使用一个简单的按钮来复制 word 中的表格。
编码：

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

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

score 3 · Accepted Answer

要清除选择，请将其添加到您的子程序的末尾：

    CutCopyMode = False

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

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

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

score 0 · Accepted Answer

这有帮助吗？

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

2 回答 2