删除标点符号前后的空格

ke3088 · 发表于 2019-10-8 11:44

删除文档空格的代码很多，但几乎都是全文删除空格，在实践中，为了整齐美观，很多空格是要保留的，如下：
组　长：张　三
副组长：李老四　王　二
成　员：赵　五　孙小六
还有：
主　任：张　三
副主任：李老四　王　二
委　员：赵　五　孙小六
……等等
从网上复制、粘贴文档后，发现有的网络在段落内换行时，为了整齐，在层次结构序号后、标点符号前后自动添加半角空格：
一、 ……（顿号后有一半角空格）
（一） ……（反括号后有一半角空格）
1. ……（圆点后有一半角空格）
（1） ……（反括号后有一半角空格）
以及所有的的中文标点符号前后都可能存在一半角空格。
一个一个地或前或后查找替换效率很低，是否有一种方法一次性地删除。现向大师请教：
快速删除圆点前后、常用中文标点符号……（）、“”，。？！《》前后空格的VBA。
谢谢

413191246se · 发表于 2019-10-9 02:24

楼主，一般可以删除所有空格。像名单，我有名单宏；其它的适当可以手动排版一下。

ke3088 · 发表于 2019-10-9 19:52

413191246se 发表于 2019-10-9 02:24
楼主，一般可以删除所有空格。像名单，我有名单宏；其它的适当可以手动排版一下。

413191246se兄，谢谢指教

相见是缘8 · 发表于 2019-10-10 16:44

你好！

式一下这个行不！

Sub 删标点符号前后空格()

With ActiveDocument.Content.Find

.Execute " ([……（）、“”，：。？！《》]) ", , , 1,, , , , , "\1", 2

End With

EndSub

413191246se · 发表于 2019-10-10 20:35

受相见感召，我费心给楼主编辑了一个宏，可以试试：

Sub 删除标点符号前后空格()
'如有遗漏标点符号，请酌情自行添加到下面两行代码的中括号中（但要注意：有的可能需要先加一个斜杠“\”再加入；如加入后变红色，就不要加入）
ActiveDocument.Content.Find.Execute "[ 　^s^t]{1,}([．、，。：；？！“”‘’＇…―·,.:;\?\!々ˇ¨ˉ〃‖\(\)（）《》〈〉\[\]〔〕{}｛｝［］〖〗【】『』「」｀｜￡￥￠～])", , , 1, , , , , , "\1", 2
ActiveDocument.Content.Find.Execute "([．、，。：；？！“”‘’＇…―·,.:;\?\!々ˇ¨ˉ〃‖\(\)（）《》〈〉\[\]〔〕{}｛｝［］〖〗【】『』「」｀｜￡￥￠～])[ 　^s^t]{1,}", , , 1, , , , , , "\1", 2
End Sub

复制代码

***如果一般情况下，要删除所有空格，或删除选定范围内的空格，可试用下面的宏：

Sub 删除所有空格aaaa()
'更新/2019-8-15/定稿
With Selection
If .Type = wdSelectionIP Then .WholeStory
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Execute "^w", , , 0, , , , , , "", 2
.Execute "　", , , 0, , , , , , "", 2
End With
End With
End Sub

复制代码

ke3088 · 发表于 2019-10-10 22:56

相见是缘8 发表于 2019-10-10 16:44
你好！式一下这个行不！
Sub 删标点符号前后空格() With ActiveDocument.Content.Find .Execute ...

相见是缘8兄，谢谢您！试了一下，发现这句.Execute " ([……（）、“”，：。？！《》]) ", , , 1,, , , , , "\1", 2只能删除标点符号前后都有有空格的，变成：先删除前面有空格的.Execute " ([……（）、“”，：。？！《》])", , , 1, , , , , , "\1", 2，再删除后后面有空格的.Execute "([……（）、“”，：。？！《》]) ", , , 1, , , , , , "\1", 2，即：
Sub 删标点符号前后空格()
With ActiveDocument.Content.Find
.Execute " ([……（）、“”，：。？！《》])", , , 1, , , , , , "\1", 2
End With
With ActiveDocument.Content.Find
.Execute "([……（）、“”，：。？！《》]) ", , , 1, , , , , , "\1", 2
End With
End Sub

相见是缘8 · 发表于 2019-10-11 07:59

413191246se 发表于 2019-10-10 20:35
受相见感召，我费心给楼主编辑了一个宏，可以试试：

***如果一般情况下，要删除所有空格，或删除选 ...

老师好！
哈哈！老师你忘了，我这个代码还是从你那儿学来的。

相见是缘8 · 发表于 2019-10-11 08:00

本帖最后由相见是缘8 于 2019-10-11 08:18 编辑

ke3088 发表于 2019-10-10 22:56
相见是缘8兄，谢谢您！试了一下，发现这句.Execute " ([……（）、“”，：。？！《》]) ", , , 1,, , , ...

你好！
由于你未提供“测试附件”，我理解错了，以为你是要删除标点符号前后都有空格的。不管怎样能帮到你就好！

loquat · 发表于 2019-10-11 09:27

本帖最后由 loquat 于 2019-10-11 09:35 编辑

查找替换：
查找：[ ]{1,}([…（）、“”，。？！《》]@)[ ]{1,}
勾选使用通配符
替换：\1
点击全部替换
注意红色部分，中括号里，如果要加小括号或者中括号作为匹配标点符号
就需要用到转义字符\
\[代表[
\(代表(

ke3088 · 发表于 2019-10-11 10:13

谢谢各位老师的倾力相助！

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

[求助] 删除标点符号前后的空格

评分