如何把表格与前后文字用段落标记分开？

gemj · 发表于 2018-10-26 05:24

本帖最后由 gemj 于 2018-10-26 05:33 编辑

如何把表格与前后文字用段落标记分开？

好比上面的这段文字，有时会用好比：
^13[A-E]
之类的表达式，对文档进行处理。
但因为A之前貌似段落标记的标记，其实不是段落标记，所以，用这个表达查不到A选项，这就容易引起很麻烦的问题。

表格的上方也是，上方的段落标记，无法象一般的段落标记一样，进行正常的替换操作。
之前就有个帖子说明过这个问题：
http://club.excelhome.net/thread-231117-1-1.html

现在的问题是，如果有VBA代码，能把表格前后，各加好比两个段落标记，那有时就方便太多了。

另外，文档处理完毕收工时，又不能让表格与前后文字相距那么远，再用个作用相反的VBA把表格前后多余的段落标记清除掉呢？好比收工时，就是文档现在的这个样子。

感觉这是件功德圆满的事情，代码高手们出手相助下？

vbee · 发表于 2018-10-26 08:03

[A-E][\.．]
之类的表达式，对文档进行处理。

gemj · 发表于 2018-10-26 09:40

有时如果不以^13开始，会误伤。

duquancai · 发表于 2018-10-26 12:00

gemj 发表于 2018-10-26 09:40
有时如果不以^13开始，会误伤。

Sub main()
Dim tb As Table, doc As Document, q As Range
Set doc = ActiveDocument
If doc.Tables.Count = 0 Then Exit Sub
For Each tb In doc.Tables
Set q = tb.Range
With q.Duplicate
If .Start <> 0 Then
With .Previous
.Collapse
.MoveStartWhile Chr(13) & Chr(32), wdBackward
.Text = Empty: .InsertAfter vbCr
End With
End If
End With
With q
With .Next
.Collapse: .MoveEndWhile Chr(13) & Chr(32)
.Text = Empty
If .Start < doc.Content.End - 1 Then .InsertAfter vbCr
End With
End With
Next
End Sub

复制代码

gemj · 发表于 2018-10-26 12:18

感谢感谢！又快又好啊！这是添加段落标记，完工后删除掉多余的呢？谢谢啦！

gemj · 发表于 2018-10-26 12:21

本帖最后由 gemj 于 2018-10-26 12:22 编辑

WORD表格后面段落标记的问题，我觉得倒是好理解，就本例而言，可以理解为A选项跟表格之间，根本就是一体的，本来就没有段落标记分隔，表格最后的那个看起来象段落标记的符号，其实本来就是表格的一个组成部分，跟段落分隔，本来就无关。

但从文字处理的角度，如果没有一种手段，把表格和紧随其后的文字分开，还是很不方便的。

但表格上方的这个段落标记，就有些费解了。为什么赋予这个段落标记这么奇怪的属性？

把上下综合起来理解，相当于表格的前后，各有一个保护层。

但上面的这个段落标记，貌似，更麻烦些，因为能查找到，但不能处理，而且，还影响到整个替换表达式的工作。

好比，如果把^13{1,}替换为^p，明明是能查找到，但却处理不了。
问题是这只是三个连续段落标记，如果是10个呢？那处理的时候，就得考虑这个因素，得先用好比把^13{2}替换为^p的办法，多次替换，才能把夸张的多个连续的段落标记给清理掉，当然表格前的那个空段落标记，还是处理不了的。

为防止这种情况，我感觉比较合理的方案，处理文档之前，先把表格前后，包裹一层保护的文字，好比这样：
（见附件）

这样，表格就不影响通配符表达式的正常工作。
等文档完工时，再把前后的文字清除掉，如果需要的话，把表格前后的空段落标记也给清理掉。

如果日后需要再次处理，再运行代码给加上。这样，处理文档就少了一份顾忌和麻烦。

duquancai · 发表于 2018-10-26 12:22

gemj 发表于 2018-10-26 12:18
感谢感谢！又快又好啊！这是添加段落标记，完工后删除掉多余的呢？谢谢啦！

你不知道自己修改啊？没那么多时间为你服务。

duquancai · 发表于 2018-10-26 12:26

gemj 发表于 2018-10-26 12:21
WORD表格后面段落标记的问题，我觉得倒是好理解，就本例而言，可以理解为A选项跟表格之间，根本就是一体的 ...

这么简单的问题，说那么多干嘛？

gemj · 发表于 2018-10-26 12:26

duquancai 发表于 2018-10-26 12:22
你不知道自己修改啊？没那么多时间为你服务。

已经很感谢啦！就是不会呀~

duquancai · 发表于 2018-10-26 12:28

本帖最后由 duquancai 于 2018-10-26 12:29 编辑

gemj 发表于 2018-10-26 12:18
感谢感谢！又快又好啊！这是添加段落标记，完工后删除掉多余的呢？谢谢啦！

没有多余的，多余的都被干掉了！始终保证表格前后各一个回车符

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

[求助] 如何把表格与前后文字用段落标记分开？

评分