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

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

413191246se 发表于 2021-1-2 09:02
* sylun 老师，新年快乐！辛苦了！
* 楼主，我反复试验，几经修改，最后还是决定放弃本宏。因为我用我的中 ...

非常感谢413191246se老师！辛苦了！因为我是翻译排版，稿件大多数是复杂的，大表格，大文档，天天需要处理。

sylun · 发表于 2021-1-3 11:04

413191246se 发表于 2021-1-2 09:02
* sylun 老师，新年快乐！辛苦了！
* 楼主，我反复试验，几经修改，最后还是决定放弃本宏。因为我用我的中 ...

413191246se兄新年好！老兄你现在是word版的主力，我只是偶尔客串一下而已。你的奉献大家都看得到的，佩服！

sylun · 发表于 2021-1-3 11:12

晨晓之黎发表于 2021-1-2 13:07
非常感谢sylun老师！运行速度快！这里默认的是全选中表格合并，有的不是同一个表格不需要合并，能不能加 ...

修改了一下代码，并增加了表格合并后列对齐处理。不选定内容时针对全文档，不考虑分页符

Sub test2()
'只对以一个段落分隔的两个表格进行合并，并尝试对齐列，可仅针对选定区域
Dim myRange As Range
Dim aTable As Table
Dim aCol As Column
Dim c As Byte
Dim i As Integer
On Error Resume Next
Application.ScreenUpdating = False
Set myRange = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
For Each aTable In myRange.Tables
With aTable.Range
If .Next(wdParagraph, 2).Information(wdWithInTable) = True Then
' aTable.Rows.Last.Range.HighlightColorIndex = wdYellow '突出显示前一表格的最后一行
If .Next(wdTable).Start > myRange.End Then Exit For
With .Next(wdTable).Tables(1)
'当前表格与下一表格列数相同且下一表格各行列数相同时调整下一表格列宽以对齐列
If .Columns.Count = aTable.Columns.Count And .Uniform = True Then
For Each aCol In .Columns
c = c + 1
aCol.Width = aTable.Columns(c).Width
Next
c = 0
End If
End With
.Next(wdParagraph).Text = Empty
i = i + 1
End If
End With
Next
Application.ScreenUpdating = True
MsgBox "共合并了" & i & "个相邻的表格。"
End Sub

复制代码

413191246se · 发表于 2021-1-3 11:25

sylun 老师的抬举，令我愧不敢当啊！我，热情无限；但，水平有限。心有余而力不足。我还是要永远向各位老师、前辈们学习！

413191246se · 发表于 2021-1-3 13:15

本帖最后由 413191246se 于 2021-1-4 10:46 编辑

略。。。。

晨晓之黎 · 发表于 2021-1-3 16:00

sylun 发表于 2021-1-3 11:12
修改了一下代码，并增加了表格合并后列对齐处理。不选定内容时针对全文档，不考虑分页符

sylun老师，你的代码完美解决，不考虑分页符直接合并表格，太厉害了！谢谢sylun老师！

晨晓之黎 · 发表于 2021-1-3 16:02

413191246se 发表于 2021-1-3 13:15
* 楼主，虽然我宣布对超大文档、超多表格感到无能为力，但刚才还是尝试着重新构思解决你的问题，主要思路是 ...

413191246se老师，你的代码运行结果出错误。不过我已经采用了sylun老师的代码，谢谢你了！

413191246se · 发表于 2021-1-3 22:59

本帖最后由 413191246se 于 2021-1-4 10:45 编辑

略。。。。

ming0018 · 发表于 2021-1-4 09:10

413191246se 发表于 2021-1-3 22:59
* 楼主：如果是最后出现对话框错误，你只要点击“结束”按钮就行了，因为最后没有下一个表格了，所以，出错 ...

IIF不会用是好事。

就用If..else...end if就行了，因为IIF效率低，代码短未必效率高，代码长也未必效率低。

413191246se · 发表于 2021-1-4 10:44

本帖最后由 413191246se 于 2021-1-5 17:03 编辑

ming 老师新年快乐！——但 IIF 语句仅一行啊，我用 IF 得两行，到底谁快？谁好？我正想努力记住 IIF 的用法。另外，sylun 老师的代码中，用“>”号表示超出范围就跳出循环，我还得再用一个变量。反正，我觉得这次 sylun 老师的代码全是闪光点，我得好好学学。——补：IIF函数我还是别用了，还是IF亲切啊！（完成功能即可，不和高手比高级。）

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

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