删除标点符号前后的空格

ke3088

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

413191246se

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

ke3088

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

413191246se兄，谢谢指教

相见是缘8

你好！

式一下这个行不！

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

    With ActiveDocument.Content.Find

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

    End With

EndSub

413191246se

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

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

复制代码

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

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

复制代码

ke3088

相见是缘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

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

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

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

相见是缘8

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

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

loquat

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

ke3088

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