请教：文档中有许多表格，如果表格跨页，则在表头处插入分页符

hunthunt2002

Sub 表格跨页()

Dim i As Integer, p1 As Long, pn As Long
For i = 1 To ActiveDocument.Tables.Count Step 1

ActiveDocument.Tables(i).Cell(1, 1).Select
Selection.Information(wdActiveEndPageNumber) = p1


ActiveDocument.Tables(i).Cell(Tables(i).Rows.Count, 1).Select
Selection.Information(wdActiveEndPageNumber) = pn

If pn <> p1 Then
Tables(i).Rows(1).Cells(1).Select
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.HomeKey Unit:=wdLine
    Selection.InsertBreak Type:=wdPageBreak
End If

Next
   
End Sub

但是代码显示“子过程或函数未定义”，请问如何改进？谢谢。

413191246se

1. Sub test表格跨页()
   
2.     Dim t As Table
   
3.     For Each t In ActiveDocument.Tables
   
4.         With t.Range
   
5.             With .Rows
   
6.                 .WrapAroundText = False
   
7.                 .Alignment = wdAlignRowCenter
   
8.             End With
   
9.             If .Characters.First.Information(wdActiveEndPageNumber) < .Characters.Last.Information(wdActiveEndPageNumber) Then
   
10.                 .Previous(1, 1).InsertBreak Type:=wdPageBreak
    
11.                 .Previous(1, 1).Font.Size = 1
    
12.             End If
    
13.         End With
    
14.     Next
    
15.     MsgBox "处理完毕！！！！！！", 0 + 48
    
16. End Sub

复制代码

hunthunt2002

413191246se 发表于 2018-10-17 00:22

学习了，谢谢！

hunthunt2002

413191246se 发表于 2018-10-17 00:22

奇怪的是，除了第1次运行成功，之后都运行错误。这两句：
                .Previous(1, 1).InsertBreak Type:=wdPageBreak
                .Previous(1, 1).Font.Size = 1

另外，表题有两种情况：1. 表1 ***，下一行是表格 ; 2. 表1 ***，下一行是 单位***,  再下一行才是表格。
思路是：如果表格跨页，那么在表格的前2个段落中查找的前三个字是“表+（数字）+空格 ”的，在查找到的前面插入分页符。

请问如何改进？谢谢。

413191246se

1. Sub test表格跨页()
   
2.     Dim t As Table
   
3.     For Each t In ActiveDocument.Tables
   
4.         With t.Range
   
5.             With .Rows
   
6.                 .WrapAroundText = False
   
7.                 .Alignment = wdAlignRowCenter
   
8.             End With
   
9.             If .Characters.First.Information(wdActiveEndPageNumber) < .Characters.Last.Information(wdActiveEndPageNumber) Then
   
10.                 .Font.Color = wdColorRed '红色***(此行语句可删除！)
    
11.                 If .Previous(4, 1) Like "表[0-9]*" Then
    
12.                     .Previous(4, 1).InsertBreak Type:=wdPageBreak
    
13.                 ElseIf .Previous(4, 1).Previous(4, 1) Like "表[0-9]*" Then
    
14.                     .Previous(4, 1).Previous(4, 1).InsertBreak Type:=wdPageBreak
    
15.                 End If
    
16.             End If
    
17.         End With
    
18.     Next
    
19.     MsgBox "处理完毕！！！！！！", 0 + 48
    
20. End Sub

复制代码

hunthunt2002

413191246se 发表于 2018-10-18 14:34

非常感谢！
代码只能运行1次。恢复文档原状后，再运行Previous(4, 1）这句就出错了。Previous(4, 1）是什么意思？

413191246se

是的，代码只能运行一次，因为表格前被插入了分页符，过去跨页的已经不跨页了。如果楼主觉得不满意，可以打开文档试运行一次，观察有哪些表格未被正确处理，而改为手动处理（你提的表格前有“表1XX”这种情况，我不知道是不是指全部表格前都有，如果没有则忽略了表格前无标题的情况只好手动处理了）。在我的2003WORD中，怎么运行都不会出错，不知在你的电脑上为什么会出错。
.previous(4,1)是简写，意思是“前一个段落”，标准写法为：.previous(unit:=wdParagraph,count:=1)，因为“段落”的代码排第4位。——不满意请不要存盘（保存），先观察清楚再说。

hunthunt2002

可能我用的是2007吧。
已经能达到效果了。非常感谢！我的水平又进步了。