选择特定行

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 ...