通配符，有个段落的多余空格删不了

kerry786032 · 发表于 2017-12-13 10:53

如图，在段落的结尾经常有多余的空格，我想使用通配符进行删除。我的通配符：(^32{1,})(^13)替换成\2
有的段落可以去掉，但是像我黄色高亮的段落就去不掉，也不知道为什么。希望有老师给解答下

duquancai · 发表于 2017-12-13 12:23

本帖最后由 duquancai 于 2017-12-13 12:26 编辑

取消使用通配符的勾选，在查找框填^w^p替换框填^p然后确定全部替换。手机上网中，看不了附件，没有测试，应该不会错吧！

kerry786032 · 发表于 2017-12-13 13:09

本帖最后由 kerry786032 于 2017-12-13 13:16 编辑

duquancai 发表于 2017-12-13 12:23
取消使用通配符的勾选，在查找框填^w^p替换框填^p然后确定全部替换。手机上网中，看不了附件，没有测试，应 ...

前辈，替换时候出现如图所示的样子，下方自动打开了页脚的一个界面

duquancai · 发表于 2017-12-13 13:40

kerry786032 发表于 2017-12-13 13:09
前辈，替换时候出现如图所示的样子，下方自动打开了页脚的一个界面

那就不关我的事了。。。。。。。

13907933959 · 发表于 2017-12-14 06:53

本帖最后由 13907933959 于 2017-12-14 07:01 编辑

网友好！

你试一下这个代码。

Sub 删除段落符前的空白()

With ActiveDocument.Content.Find

.Replacement.Font.Color = wdColorViolet

.Execute findtext:="^w^p",replacewith:="", Replace:=wdReplaceAll

End With

With ActiveDocument.Content.Find

.Font.Color = wdColorViolet

.Execute findtext:="^w",replacewith:="", Replace:=wdReplaceAll

.Replacement.Font.Color = wdColorBlack

.Execute findtext:="^p", replacewith:="",Replace:=wdReplaceAll

End With

End Sub

kerry786032 · 发表于 2017-12-14 09:34

13907933959 发表于 2017-12-14 06:53
网友好！你试一下这个代码。 Sub 删除段落符前的空白() With ActiveDocument.Content.Find .Repl ...

谢谢网友，这段守柔的代码我也试过，不过还是没用，很是奇怪，不麻烦的话，可以下载一下我的附件试试。

13907933959 · 发表于 2017-12-14 14:47

kerry786032 发表于 2017-12-14 09:34
谢谢网友，这段守柔的代码我也试过，不过还是没用，很是奇怪，不麻烦的话，可以下载一下我的附件试试。

网友好！

我试了可以呀，请看下面的录像！因论坛对上传的录像文件大小有规定，故删除了文档的中间部分。

kerry786032 · 发表于 2017-12-15 16:19

13907933959 发表于 2017-12-14 14:47
网友好！我试了可以呀，请看下面的录像！因论坛对上传的录像文件大小有规定，故删除了文档的中间部分。

谢谢了啊，我再试试

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

[求助] 通配符，有个段落的多余空格删不了