word每个表格之间的空行批量删除，要合并表格

晨晓之黎 · 发表于 2020-12-31 17:47

大神，一开始先是用查找替换全部删除分页符，结果分页符变成段落标记，删不了，后来用^p替换掉空，还是不行，有没有办法解决吗？

企业微信截图_16094042624319.png

413191246se · 发表于 2020-12-31 22:03

楼主，建议提供附件，说明情况。

E-Shen · 发表于 2020-12-31 22:11

是不是换行符，貌似Word有自带的换行符通配符

晨晓之黎 · 发表于 2021-1-1 12:28

413191246se 发表于 2020-12-31 22:03
楼主，建议提供附件，说明情况。

已上传文件了，选定的同一个表格，删除分页符，然后合并表格，比如P10-62页一起合并一个表格

413191246se · 发表于 2021-1-1 19:35

本帖最后由 413191246se 于 2021-1-2 08:56 编辑

Not OK!......

晨晓之黎 · 发表于 2021-1-1 21:52

413191246se 发表于 2021-1-1 19:35

我刚测试了，一直卡在路上了，一直不停地闪屏...

sylun · 发表于 2021-1-1 22:40

晨晓之黎发表于 2021-1-1 12:28
已上传文件了，选定的同一个表格，删除分页符，然后合并表格，比如P10-62页一起合并一个表格

可试试如下代码，如已删除分页符，可试删去第一个条件

Sub test()
'只合并表格后带分页符且与后一表格间只有一个段落（不管是不是空段落）
Dim aTable As Table
Dim i As Integer
On Error Resume Next
Application.ScreenUpdating = False
For Each aTable In ActiveDocument.Tables
With aTable.Range
If .Next.Text = Chr(12) And .Next(wdParagraph, 2).Information(wdWithInTable) = True Then
' aTable.Rows.Last.Range.HighlightColorIndex = wdYellow '突出显示前一表格的最后一行
.Next(wdParagraph).Text = Empty
' .Next(wdTable).Rows.First.Range.HighlightColorIndex = wdYellow '突出显示后一表格的首行
i = i + 1
End If
End With
Next
Application.ScreenUpdating = True
MsgBox "共合并了" & i & "个相邻的表格。"
End Sub

复制代码

413191246se · 发表于 2021-1-1 23:20

* 楼主，我认为算法思路没有问题，因为用少量表格试验没有问题，遇到不规则的表格会终止（合并前提是规则表格且有相同的列数）。刚才我又试了试，用你的附件，当然的确是慢，显示未响应，实际上仍然在处理，发现第 67 页表格有问题，是 5 列，建议尽量用比较高端的电脑来处理比较好。下面是第67页有问题表格：
useCdbsStimAmpWhenAdbsProgramDisabled_1 4001/4101/4201 0 919802 2206.89 PASS
useCdbsStimAmpWhenAdbsProgramDisabled_2 4001/4101/4201 0 919802 2180.271 PASS
useCdbsStimAmpWhenAdbsProgramDisabled_3 4001/4101/4201 0 919802 1990.357 PASS

413191246se · 发表于 2021-1-2 09:02

本帖最后由 413191246se 于 2021-1-2 12:29 编辑

* sylun 老师，新年快乐！辛苦了！
* 楼主，我反复试验，几经修改，最后还是决定放弃本宏。因为我用我的中高端联想电脑（将近万元），也无法轻松处理。请试用 sylun 老师的代码吧！（不过，我还是说一下，你为什么要处理那么多表格呢？我平时都是处理小表格，没几个。目前对付大文档、多表格感觉无能为力。）

晨晓之黎 · 发表于 2021-1-2 13:07

sylun 发表于 2021-1-1 22:40
可试试如下代码，如已删除分页符，可试删去第一个条件

非常感谢sylun老师！运行速度快！这里默认的是全选中表格合并，有的不是同一个表格不需要合并，能不能加个选择部分包含多个表格的选中执行？

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

[求助] word每个表格之间的空行批量删除，要合并表格

评分