2013-04-25 198 views
0

我正在嘗試在Microsoft Word中複製第一和第三行。選擇特定行

Dim Myrange as Range 
    With ActiveDocument.Tables(1) 
    Set.myrange= .Rows(1,3) .Range 
    myrange.End= .Rows(1,3) .Range.End 
    End With 
    Selection.Copy 

這給出了錯誤的參數數量或錯誤的屬性分配錯誤。

+0

您可以使用您嘗試的代碼更新您的問題,而不是將它發佈在評論中看起來都混亂了嗎?一旦你這樣做,刪除上面的評論。 – 2013-04-25 21:03:40

+0

我已經完成了。 – 2013-04-25 21:08:10

+1

你確定你已經正確地複製了代碼嗎? 'Set.myrange'和'.Rows(1,3).Range'之間的空格是什麼? – 2013-04-25 21:10:34

回答

0

複製行1和3,你必須複製第1行,然後再複製一行3

複製第1行,使用此代碼

Sub Sample() 
    Dim myrange As Range 
    With ActiveDocument.Tables(1) 
     Set myrange = .Rows(1).Range 
     myrange.End = .Rows(1).Range.End 
     myrange.Copy 
    End With 
End Sub 

同樣做3次你有將複製的行粘貼到某處...

+0

這並不適用於我想要做的事情。該宏需要通過單擊命令按鈕將行3和行1複製到剪貼板上,以便表單的用戶可以將該信息粘貼到另一個文檔中。 – 2013-04-25 21:36:26

+0

AFAIK(我可能是錯的),你必須單獨複製它們。如果它是1到3行,那麼它會是一個不同的情況。 – 2013-04-25 21:39:50

+0

沒有任何類型的排除參數可以放入? – 2013-04-25 21:48:12