我重试了一下,当你选中的行数和要拆分的行数不是倍数关系时,wod会提示你错误,比如你选中3行要拆成4行,它会告诉你数字位于1-3之间,如果你要输入2,它就告诉你必须是3的约数,所以就弄不成了。
看来要拆的行或列必须是它的约数了,比如可以把8行拆成1、2、4行,但拆不成8,16行。
这样的话,如果必须要那样拆,就不如手工了,先合并,然后划出相应的直线,再平均分布一下,也可以达到目的的。

在word中能不能一下选中所有的表格

ub 选中所有表格() Dim tempTable As Table Application.ScreenUpdating = False '.DeleteAllEditableRanges wdEditorEveryone '添加可编辑区域 For Each tempTable In ActiveDocument.Tables tempTable.Range.Editors.Add wdEditorEveryone Next '.ScreenUpdating = TrueEnd Sub上面是选中所有表格的宏代码!".SelectAllEditableRanges wdEditorEveryone '删除所有可编辑的区域 ActiveDocument.DeleteAllEditableRanges wdEditorEveryone Application; Exit Sub End If '删除所有可编辑的区域 ActiveDocument;选中所有可编辑区域 ActiveDocument;判断文档是否被保护 If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then MsgBox "文档已保护,此时不能选中多个表格...