以下代码成功删除了表中的选择。
If Selection.Information(wdWithInTable) Then
Selection.Rows.Delete
End If
此外,以下代码成功地阻止了前两个表行的删除,但不基于选择从底行向上删除。
Dim index As Long
For index = ActiveDocument.Tables(1).Rows.Count To 3 Step -1
ActiveDocument.Tables(1).Rows(index).Delete
Exit For
Next index
有没有办法将两者结合起来,这样我就可以删除任何选定的行但防止前两行被删除?