表格内的回车替换

thunor · 发表于 2022-12-6 09:58

如题，如果一个表格内有连续的回车符，怎么将其替换，甚至连查找也查找不到连续的回车符。

vbee · 发表于 2022-12-6 19:15

查找 ^13^13

thunor · 发表于 2022-12-7 10:24

vbee 发表于 2022-12-6 19:15
查找 ^13^13

谢谢你的回复。不可行。

替换

413191246se · 发表于 2022-12-7 10:35

Sub TableDeleteBlankParagraph()
'表格删除空段
Dim c As Cell, i As Paragraph
For Each c In Selection.Tables(1).Range.Cells
For Each i In c.Range.Paragraphs
If Asc(i.Range) = 13 And Len(i.Range) = 1 Then i.Range.Delete
Next
With c.Range.Paragraphs
If .Count > 1 And Len(.Last.Range) = 2 Then .Last.Previous.Range.Characters.Last.Delete
End With
Next
End Sub

复制代码

thunor · 发表于 2022-12-7 17:48

413191246se 发表于 2022-12-7 10:35

谢谢你，真的非常感谢，辛苦了。

只是道士 · 发表于 2022-12-14 16:20

^P^P 或^L^L 替换为一个^L

thunor · 发表于 2022-12-15 07:43

只是道士发表于 2022-12-14 16:20
^P^P 或^L^L 替换为一个^L

谢谢你的回复，不可行，上面有图。

wuwenbin32415 · 发表于 2022-12-15 21:09

把你的附件发上来吧，别人一直在那瞎猜

thunor · 发表于 2022-12-16 07:53

wuwenbin32415 发表于 2022-12-15 21:09
把你的附件发上来吧，别人一直在那瞎猜

测试文档.rar (10.14 KB, 下载次数: 8) 此文件为测试文件，前是一个是处理前，后一个是处理后。

wuwenbin32415 · 发表于 2022-12-16 11:17

这不是很简单吗，就是把1个段落标记^p或^13替换为空，千万不要弄2个段落标记

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

[求助] 表格内的回车替换