基本上，我想要完成的是：删除表中从光标在表中的位置到表末尾的所有行。
问题是该表包含垂直合并的单元格，因此当我尝试执行以下操作时：
For i = Selection.Tables(1).Rows.Count To Selection.Cells(1).RowIndex Step -1
Selection.Tables(1).Rows(i).Delete
Next
它抱怨无法访问各个行，因为表包含垂直合并的单元格。
我也尝试过先选择范围，然后删除选择。但我无法正确定义范围；它总是抱怨参数定义不正确。
使用 VBA 合并表格单元不是很麻烦吗？ Word 似乎与列数和行数混淆了。对于水平或垂直合并单元格的任意组合，以下内容似乎非常强大。
Sub DeleteRows()
Selection.MoveDown Unit:=wdLine, Count:=(Selection.Tables(1).Rows.Count - Selection.Cells(1).RowIndex), Extend:=wdExtend
Selection.Rows.Delete
End Sub
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
