选择特定行

Question

我正在尝试在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 

这给出了错误的参数数量或错误的属性分配错误。

Answer 1

复制行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次你有将复制的行粘贴到某处...