vba - 选择特定行

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