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

hunthunt2002 · 发表于 2018-10-16 21:10

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 · 发表于 2018-10-17 00:22

Sub test表格跨页()
Dim t As Table
For Each t In ActiveDocument.Tables
With t.Range
With .Rows
.WrapAroundText = False
.Alignment = wdAlignRowCenter
End With
If .Characters.First.Information(wdActiveEndPageNumber) < .Characters.Last.Information(wdActiveEndPageNumber) Then
.Previous(1, 1).InsertBreak Type:=wdPageBreak
.Previous(1, 1).Font.Size = 1
End If
End With
Next
MsgBox "处理完毕！！！！！！", 0 + 48
End Sub

复制代码

hunthunt2002 · 发表于 2018-10-18 00:50

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

学习了，谢谢！

hunthunt2002 · 发表于 2018-10-18 10:30

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

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

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

请问如何改进？谢谢。捕获.JPG

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

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

复制代码

hunthunt2002 · 发表于 2018-10-19 00:41

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

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

413191246se · 发表于 2018-10-19 10:00

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

hunthunt2002 · 发表于 2018-10-19 22:03

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

		自动登录	找回密码
密码			免费注册

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