求一个查找文档内多余的标点符号并把它们改为蓝色的宏代码

13907933959

413191246se 发表于 2015-11-3 11:14
❶一 （为MS Gothic字体）标题符号时，查找替换不了----------这个问题，暂时束手无策，139。

师傅好！
好的。

413191246se

139：还是在你的帖子回复吧，还是第3个小问题：黑圈123白圈一二三加顿号的宏：（再试试。另外：你前2个小问题，多次替换的问题，是A替换为甲，B替换为乙，C替换为丙，D替换为丁……这样吗？）

1. Sub 黑圈123加顿号()
   
2. 'MS Gothic字体：黑圈1/2/3后加顿号
   
3.     Selection.HomeKey unit:=wdStory
   
4.     Do
   
5.         Selection.Find.ClearFormatting
   
6.         Selection.Find.Execute findtext:=ChrW(10102)
   
7.         If Selection.Find.Found = True Then
   
8.             Selection.MoveEnd unit:=wdCharacter, Count:=1
   
9.             If Selection.Characters.Last.Text Like "[ 　]" Or Selection.Characters.Last.Text = ChrW(160) Then Selection.Characters.Last.Delete
   
10.             If Len(Selection) = 1 Then
    
11.                 Selection.InsertAfter Text:="、"
    
12.             Else
    
13.                 If Selection.Characters.Last.Text <> "、" Then Selection.MoveEnd unit:=wdCharacter, Count:=-1: Selection.InsertAfter Text:="、"
    
14.             End If
    
15.             Selection.MoveRight unit:=wdCharacter, Count:=1
    
16.         End If
    
17.     Loop Until Selection.Find.Found = False
    
18. '
    
19.     Selection.HomeKey unit:=wdStory
    
20.     Do
    
21.         Selection.Find.ClearFormatting
    
22.         Selection.Find.Execute findtext:=ChrW(10103)
    
23.         If Selection.Find.Found = True Then
    
24.             Selection.MoveEnd unit:=wdCharacter, Count:=1
    
25.             If Selection.Characters.Last.Text Like "[ 　]" Or Selection.Characters.Last.Text = ChrW(160) Then Selection.Characters.Last.Delete
    
26.             If Len(Selection) = 1 Then
    
27.                 Selection.InsertAfter Text:="、"
    
28.             Else
    
29.                 If Selection.Characters.Last.Text <> "、" Then Selection.MoveEnd unit:=wdCharacter, Count:=-1: Selection.InsertAfter Text:="、"
    
30.             End If
    
31.             Selection.MoveRight unit:=wdCharacter, Count:=1
    
32.         End If
    
33.     Loop Until Selection.Find.Found = False
    
34. '
    
35.     Selection.HomeKey unit:=wdStory
    
36.     Do
    
37.         Selection.Find.ClearFormatting
    
38.         Selection.Find.Execute findtext:=ChrW(10104)
    
39.         If Selection.Find.Found = True Then
    
40.             Selection.MoveEnd unit:=wdCharacter, Count:=1
    
41.             If Selection.Characters.Last.Text Like "[ 　]" Or Selection.Characters.Last.Text = ChrW(160) Then Selection.Characters.Last.Delete
    
42.             If Len(Selection) = 1 Then
    
43.                 Selection.InsertAfter Text:="、"
    
44.             Else
    
45.                 If Selection.Characters.Last.Text <> "、" Then Selection.MoveEnd unit:=wdCharacter, Count:=-1: Selection.InsertAfter Text:="、"
    
46.             End If
    
47.             Selection.MoveRight unit:=wdCharacter, Count:=1
    
48.         End If
    
49.     Loop Until Selection.Find.Found = False
    
50. 
    
51. 'MS Gothic字体：白圈一/二/三后加顿号
    
52.     Selection.HomeKey unit:=wdStory
    
53.     Do
    
54.         Selection.Find.ClearFormatting
    
55.         Selection.Find.Execute findtext:=ChrW(12928)
    
56.         If Selection.Find.Found = True Then
    
57.             Selection.MoveEnd unit:=wdCharacter, Count:=1
    
58.             If Selection.Characters.Last.Text Like "[ 　]" Or Selection.Characters.Last.Text = ChrW(160) Then Selection.Characters.Last.Delete
    
59.             If Len(Selection) = 1 Then
    
60.                 Selection.InsertAfter Text:="、"
    
61.             Else
    
62.                 If Selection.Characters.Last.Text <> "、" Then Selection.MoveEnd unit:=wdCharacter, Count:=-1: Selection.InsertAfter Text:="、"
    
63.             End If
    
64.             Selection.MoveRight unit:=wdCharacter, Count:=1
    
65.         End If
    
66.     Loop Until Selection.Find.Found = False
    
67. '
    
68.     Selection.HomeKey unit:=wdStory
    
69.     Do
    
70.         Selection.Find.ClearFormatting
    
71.         Selection.Find.Execute findtext:=ChrW(12929)
    
72.         If Selection.Find.Found = True Then
    
73.             Selection.MoveEnd unit:=wdCharacter, Count:=1
    
74.             If Selection.Characters.Last.Text Like "[ 　]" Or Selection.Characters.Last.Text = ChrW(160) Then Selection.Characters.Last.Delete
    
75.             If Len(Selection) = 1 Then
    
76.                 Selection.InsertAfter Text:="、"
    
77.             Else
    
78.                 If Selection.Characters.Last.Text <> "、" Then Selection.MoveEnd unit:=wdCharacter, Count:=-1: Selection.InsertAfter Text:="、"
    
79.             End If
    
80.             Selection.MoveRight unit:=wdCharacter, Count:=1
    
81.         End If
    
82.     Loop Until Selection.Find.Found = False
    
83. '
    
84.     Selection.HomeKey unit:=wdStory
    
85.     Do
    
86.         Selection.Find.ClearFormatting
    
87.         Selection.Find.Execute findtext:=ChrW(12930)
    
88.         If Selection.Find.Found = True Then
    
89.             Selection.MoveEnd unit:=wdCharacter, Count:=1
    
90.             If Selection.Characters.Last.Text Like "[ 　]" Or Selection.Characters.Last.Text = ChrW(160) Then Selection.Characters.Last.Delete
    
91.             If Len(Selection) = 1 Then
    
92.                 Selection.InsertAfter Text:="、"
    
93.             Else
    
94.                 If Selection.Characters.Last.Text <> "、" Then Selection.MoveEnd unit:=wdCharacter, Count:=-1: Selection.InsertAfter Text:="、"
    
95.             End If
    
96.             Selection.MoveRight unit:=wdCharacter, Count:=1
    
97.         End If
    
98.     Loop Until Selection.Find.Found = False
    
99. End Sub

复制代码

13907933959

413191246se 发表于 2015-11-4 17:27
139：还是在你的帖子回复吧，还是第3个小问题：黑圈123白圈一二三加顿号的宏：（再试试。另外：你前2个小问 ...

师傅好！

现在这个代码可以正常替换了。

师傅、如这些MS Gothic字体标题符号后面，有的还有一个空格、二个空格的，有的又没有，一次性把这些标题符号替换成，后面没有空格带上顿号的。代码要怎么修改？

师傅、前2个小问题，多次替换的问题，是A替换为甲，B替换为乙，C替换为丙，D替换为丁……是这样的。也就是下面的问题（实际上也就是想一次性解决几天前我上传给您的小标题编号附件里面的问题）。

下面这句语句您前几天提醒过我，就是几天前我上传给您的小标题编号附件里面，如果要达到全部替换的话至少有几百步，也就是说要几百句ActiveDocument.Content.Find.Execute findtext:="^l", ReplaceWith:="^p", Replace:=wdReplaceAll这句语句，我想VBA中有不有类似的语句，中间带括号什么的，可以把所有查找的A、A、A、……括在括号内，把所有替换的B、B、B、……括在另一个括号内再替换，这样可以简化很多很多的步骤，不用几百句ActiveDocument.Content.Find.Execute findtext:="^l", ReplaceWith:="^p", Replace:=wdReplaceAll这句语句。

师傅、感谢您一直在心里挂着徒弟的事！

13907933959

413191246se 发表于 2015-11-2 10:11
139：两个宏确实没有问题！宏也叫过程、程序，标志是第一句必须是 Sub XXX()，最后一句是 End Sub，所以， ...

师傅好！
你的那个“替换英文双引号为中文”宏单独可运行，可我按您上次教的方法把它们2个组合在一起却运行不了，提示运行时错误5623，我的水平不够，还是请师傅出手组合一下。

Sub 将点号转换为句号_但不转换小数点()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = "([!0-9\.\．])@\.([!0-9])"
    .Replacement.Text = "\1。\2"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'替换英文双引号为中文
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = """"
      .Forward = True
      .Wrap = wdFindStop
      .MatchByte = True
    End With
    With Selection
      While .Find.Execute
          .Text = ChrW(8220)
          .Find.Execute
          .Text = ChrW(8221)
      Wend
    End With
End Sub

413191246se

是有问题！暂时无果！

13907933959

413191246se 发表于 2015-11-5 20:30
是有问题！暂时无果！

等待师傅把它两个合并。

13907933959

413191246se 发表于 2015-11-5 20:30
是有问题！暂时无果！

师傅好！
这2个宏可否有办法合并？