手动一次查找替换，为多个标题符号后面加上顿号

13907933959

请赐教的前辈查看附件。

kqbt

既然半角空格是0-N个不等，如果要去掉这些空格，那一步替换应该实现不了。
两步：
光标定位至文首
第一步去掉半角空格（ √ 使用通配符）
查找内容：

1. (^13[㊀-㊉❶-❿])^32{1,}

复制代码

替 换 为：

1. \1

复制代码

第二步添加顿号（ √ 使用通配符）
查找内容：

1. ^13[㊀-㊉❶-❿]

复制代码

替 换 为：

1. ^&、

复制代码

413191246se

139：我昨天中午给你的《黑圈123白圈一二三加顿号》宏，黑圈1后面的若干空格（有四种：半角/全角/不间断空格，制表符）可以自动删除啊，你怎么又发这个新帖子了？浪费资源，完全不必要啊！（当然我没提前告诉你。）

13907933959

kqbt 发表于 2015-11-7 20:35
既然半角空格是0-N个不等，如果要去掉这些空格，那一步替换应该实现不了。
两步：
光标定位至文首

版主前辈好！
感谢出手相助！
手动一次解决，不太可能，是吗！
再请版主前辈帮一下忙，如这些标题后面不但有0～N个的空格，在空格中有的有逗号，有的有句号。有的有点号.（而，。.在空格的位置不固定，前后的空格数也不固定）当然、有的标题后面空格和什么号都没有，我想把这些都替换成没有空格加上宋体顿号的，劳请版主前辈再出手相助！谢谢！

13907933959

413191246se 发表于 2015-11-8 11:51
139：我昨天中午给你的《黑圈123白圈一二三加顿号》宏，黑圈1后面的若干空格（有四种：半角/全角/不间断空 ...

师傅好！
我这个向版主前辈求的是手动的。

kqbt

13907933959 发表于 2015-11-8 12:10
版主前辈好！
感谢出手相助！
手动一次解决，不太可能，是吗！

有例文的话最好上传来看一下，这样比较节约时间。

413191246se

139：你这个是手动的，但只不过数目字（黑圈1等）后面有若干空格，而我的宏后面考虑了四种空格，无论有多少个，都可以自动删除的——但未考虑,.，。这种情况，你可以试试《黑圈123白圈一二三加顿号》宏。——既有自动，何需手动？

413191246se

*** 139：有三个问题！一是像 ⒗⒃这样的字符，不是组合的，是一个字符，所以它后面加顿号不合适；二是顿号非要宋体吗？因为前面的符号是 MS Gothic（非要宋体也是可以的，但我建议默认 MS Gothic 就可以了）；三是我又改动了一下《黑圈1加顿号》宏，黑圈1后面可以有若干空格，并且后面有 ,.，。都自动删除：

1. Sub 黑圈123白圈一二三加顿号()
   
2.     Dim i As Long
   
3.     i = 9312
   
4.     Do
   
5.         Selection.HomeKey Unit:=wdStory
   
6.         Selection.Find.ClearFormatting
   
7.         Do While Selection.Find.Execute(findtext:=ChrW(i), Forward:=True)
   
8.             Do
   
9.                 Selection.MoveEnd Unit:=wdCharacter, Count:=1
   
10.                 If Asc(Selection.Characters.Last) = 13 Then Exit Do
    
11.             Loop Until Selection.Characters.Last.Text <> ChrW(160) And Asc(Selection.Characters.Last) <> 9 And _
    
12.                 Selection.Characters.Last Like "[! 　,.，。]"
    
13.             Selection.MoveEnd Unit:=wdCharacter, Count:=-1
    
14.             Selection = Replace(Selection, ChrW(160), "")
    
15.             Selection = Replace(Selection, " ", "")
    
16.             Selection = Replace(Selection, "　", "")
    
17.             Selection = Replace(Selection, Chr(9), "")
    
18.             Selection = Replace(Selection, ",", "")
    
19.             Selection = Replace(Selection, ".", "")
    
20.             Selection = Replace(Selection, "，", "")
    
21.             Selection = Replace(Selection, "。", "")
    
22.             Selection.MoveEnd Unit:=wdCharacter, Count:=1
    
23.             If Selection.Characters.Last.Text = "、" Then
    
24.                 Selection.Characters.Last.Delete
    
25.             Else
    
26.                 Selection.MoveEnd Unit:=wdCharacter, Count:=-1
    
27.             End If
    
28.             Selection.InsertAfter Text:="、"
    
29.             Selection.MoveRight Unit:=wdCharacter, Count:=1
    
30.         Loop
    
31.         i = i + 1
    
32.         If i = 9352 Then i = 9450
    
33.         If i = 9451 Then i = 10102
    
34.         If i = 10132 Then i = 12832
    
35.         If i = 12842 Then i = 12928
    
36.         If i = 12938 Then End
    
37.     Loop
    
38. End Sub

复制代码

13907933959

kqbt 发表于 2015-11-8 12:23
有例文的话最好上传来看一下，这样比较节约时间。

版主前辈好！
请看附件。

13907933959

413191246se 发表于 2015-11-8 12:32
139：你这个是手动的，但只不过数目字（黑圈1等）后面有若干空格，而我的宏后面考虑了四种空格，无论有多少 ...

师傅好！
有些文件比较特殊，必需要用到手动才能完成，自动的是全部，手动的是局部，例如我可用颜色控制局部再手动完成。