如何让word表格跨页

Question

如题所述

Answer 1

方法如下:

1、打开word；

2、选择要调整的表格，右击-》表格属性；

3、选择行，勾选指定高度，填入相应的行高值；

4、确定，完成。

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