如何清除VBA中的選擇

我正在使用一個簡單的按鈕來複制單詞中的表格。
代碼：如何清除VBA中的選擇

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

一個非常簡單的代碼。當我第一次點擊按鈕就OK。然而，在那之後，每當我點擊按鈕時，它會複製所有的表格。我認爲這是因爲選擇不是空的。我如何簡單地清除選區？

要清除的選擇，將它添加到您的子結束：

CutCopyMode = False

需要注意的是，您的代碼似乎沒有添加第二個表的副本，而是其附加的副本第二個表中的每行到同一個表的末尾。不知道這是否是由設計。

整個表複製到文檔的末尾：

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

2013-07-09 20:23:01

是的，你是對的，這是錯誤的。我想在文檔的末尾附加複製的表格。我正在嘗試：Selection.MoveEnd Selection.Paste之前，任何提示？ –

好的，看我的編輯。 –

這是我第一次用VBA拍攝。感謝您的幫助，它運作良好。 –

這是否幫助？

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

2013-07-09 20:24:29 Belial09

感謝您的幫助，我的想法是錯誤的。 –

回答