从 WORD 表中删除特定数量的行

Question

我正在创建一个用户表单，供用户在 WORD 表格中插入/粘贴数据。我已经为用户编写了将指定数量的行插入表中的代码，此外，每行在添加时都会按顺序编号。我已尝试反转代码以删除指定数量的行，但未成功。

我编写的用于向用户提供删除指定行数的选项的代码没有按我的计划工作。收到的消息：参数数量错误或属性分配无效。

Sub DeleteRowsFromTable()
Dim nNumber as Long

Active.document.Tables(2).Select
  If Selection.Information(wdWithInTable) = True Then
  nNumber = InputBox("Input the number of rows you want to delete:", "Delete rows from the selection")
  Selection.Tables(2).Rows.Last.Delete NumRows:=nNumber

end if

end sub

用户从表底部选择行数的预期结果(2)，无论行是否为空。

Answer 1

试试：

Sub DeleteRowsFromTable()
Application.ScreenUpdating = False
Dim n As Long, r As Long
With ActiveDocument.Tables(2)
  On Error GoTo ErrExit
  n = InputBox("Input the number of rows you want to delete:", "Delete rows from the table")
  For r = .Rows.Count To 1 Step -1
    If n = 0 Then Exit For
    If r < 7 Then Exit For
    .Rows(r).Delete
    n = n - 1
  Next
End With
ErrExit:
Application.ScreenUpdating = True
End Sub