如何用vba控制 表格跨页断行??

hhhttt

在写一个程序,实现把数据库的表导到word中. 但是,表格中文字太多，它会分两页显示,打印就出问题. 因为是用vb.net开发,所以VBA是通用的. 如何用vba设置表格的属性,使一行表格不会因为正好在页围,而产生跨页显示.? 谢谢

守柔

可以数据导入结束后，检测表格属性，然后进行相应处理，比如修改页面设置或者缩小文字或者行高等。

以下代码供参考：

Sub Sample()
    Dim StartRange As Range, EndRange As Range
    Dim myTable As Table
    Set myTable = ActiveDocument.Tables(1)
    Set StartRange = myTable.Rows.First.Range
    Set EndRange = myTable.Rows.Last.Range
    If EndRange.Information(wdActiveEndPageNumber) <> StartRange.Information(wdActiveEndPageNumber) Then _
       MsgBox "表格跨页显示！"
End Sub