求一个把多层文件夹内文档内任意数字与任意数字之间的：替换成∶的宏。

13907933959

413191246se 发表于 2016-5-4 15:02
139：此宏瞬息完成，一气呵成！中间变为红色再变为黑色，完全没有必要。

师傅好！
中间变为红色再变为黑色，我也知道这个是多余，本来师傅给的6楼代码以完全解决文题，再请师傅用变色的方法查找替换冒号，还有另一个目的，就是想把这个查找中文冒号→替换为红色英文冒号   再查找红色英文冒号→替换为黑色  这样的一个步骤扩展到其它的宏中使用，因此少了查找红色英文冒号→替换为黑色  这一步没办法完成，所以求师傅务必为徒弟再加上这一步。

413191246se

139：我想你的要求，一步完不成。你还是用两个宏吧，就是单、多文档的那两个步骤的宏（其实两个宏的语句都是重复的）。

13907933959

413191246se 发表于 2016-5-5 09:35
139：我想你的要求，一步完不成。你还是用两个宏吧，就是单、多文档的那两个步骤的宏（其实两个宏的语句都 ...

师傅好！

这一步：查找红色英文冒号替换为黑色  加不了吗？  能不能请师傅再想想办法，我很想要这一步！
            
        

413191246se

139：请你详细说说整个运作流程！（到底分几步？）

13907933959

413191246se 发表于 2016-5-5 16:32
139：请你详细说说整个运作流程！（到底分几步？）

师傅好！
查找替换数字之间的中文冒号（一个宏里面）先后运作流程：
1、查找中文冒号→替换为红色
2、查找红色中文冒号→替换为红色英文冒号
3、查找红色英文冒号→替换为黑色

413191246se

139：像你说的应该分三步！但实际上，找到中文冒号后，只须判断如果是红色，则赋值为英文冒号即可；再替换为黑色即可，无须再查找。也就是说，只须一个宏。但你到底想要几个宏完成这些步骤？（另外，请你先打开模拟文档，再在VBE中把光标放到宏代码处，每次按一下F8键，观察具体执行步骤，看看。）

13907933959

413191246se 发表于 2016-5-6 08:42
139：像你说的应该分三步！但实际上，找到中文冒号后，只须判断如果是红色，则赋值为英文冒号即可；再替换 ...

师傅好！
在一个宏内完成这些步骤。

师傅、打开模拟文档，再在VBE中把光标放到宏代码处，每次按一下F8键，观察具体执行步骤，如跳过的代码是不是表明这个是多余或无效的语句？

413191246se

139：请你仔细边按F8键逐步执行代码，边观察文档中的变化。中文冒号找到后，判断它前后的字符是否是数字，如果是数字则再选定中文冒号，直接赋值为英文冒号即可（不知你非要变为红色，再变为黑色，这两个无效步骤，给谁看？因为这些步骤是在循环当中反复执行的，瞬息完成）。——跳过的代码，应该前面是有单引号小撇'引领的语句，当然是可以删除的，有时是为了调试，为了醒目、鲜明。

13907933959

413191246se 发表于 2016-5-6 14:57
139：请你仔细边按F8键逐步执行代码，边观察文档中的变化。中文冒号找到后，判断它前后的字符是否是数字， ...

师傅好！
我指的是前面没有单引号小撇'引领的语句，按F8会跳过的代码。
师傅、是不是下面的第3个步骤，违背了编写VBA代码的法则，不能实现？如果只是走了多余的弯路，我还是想劳请师傅为徒弟编写一个含有下面3个步骤的宏。
1、查找中文冒号→替换为红色
2、查找红色中文冒号→替换为红色英文冒号
3、查找红色英文冒号→替换为黑色

413191246se

139：你的耐心很好！这点我不如你。——明明一段代码可以解决，你偏偏要三段代码，我还是提供了你要的代码（在宏内，黄色所在的代码按一下F8键，就是执行了它，是不是这点你称为跳过？）

1. Sub try()
   
2. '1、查找中文冒号→替换为红色
   
3.     Selection.HomeKey Unit:=wdStory
   
4.     Selection.Find.ClearFormatting
   
5.     Do While Selection.Find.Execute(FindText:="：", Forward:=True)
   
6.         Selection.MoveStart Unit:=wdCharacter, Count:=-1
   
7.         Selection.MoveEnd Unit:=wdCharacter, Count:=1
   
8.         If Selection Like "[0-9]?[0-9]" Then
   
9.             Selection.MoveStart Unit:=wdCharacter, Count:=1
   
10.             Selection.MoveEnd Unit:=wdCharacter, Count:=-1
    
11.             Selection.Font.Color = wdColorRed '红色
    
12.         End If
    
13.         Selection.MoveRight Unit:=wdCharacter, Count:=1
    
14.     Loop
    
15. 
    
16. '2、查找红色中文冒号→替换为红色英文冒号
    
17.     Selection.HomeKey Unit:=wdStory
    
18.     Selection.Find.ClearFormatting
    
19.     Do While Selection.Find.Execute(FindText:="：", Forward:=True)
    
20.         Selection.MoveStart Unit:=wdCharacter, Count:=-1
    
21.         Selection.MoveEnd Unit:=wdCharacter, Count:=1
    
22.         If Selection Like "[0-9]?[0-9]" Then
    
23.             Selection.MoveStart Unit:=wdCharacter, Count:=1
    
24.             Selection.MoveEnd Unit:=wdCharacter, Count:=-1
    
25.             If Selection.Font.Color = wdColorRed Then Selection.Text = ":" '红色替换为英文冒号
    
26.         End If
    
27.         Selection.MoveRight Unit:=wdCharacter, Count:=1
    
28.     Loop
    
29. 
    
30. '3、查找红色英文冒号→替换为黑色
    
31.     Selection.HomeKey Unit:=wdStory
    
32.     Selection.Find.ClearFormatting
    
33.     Do While Selection.Find.Execute(FindText:=":", Forward:=True)
    
34.         Selection.MoveStart Unit:=wdCharacter, Count:=-1
    
35.         Selection.MoveEnd Unit:=wdCharacter, Count:=1
    
36.         If Selection Like "[0-9]?[0-9]" Then
    
37.             Selection.MoveStart Unit:=wdCharacter, Count:=1
    
38.             Selection.MoveEnd Unit:=wdCharacter, Count:=-1
    
39.             If Selection.Font.Color = wdColorRed Then Selection.Font.Color = wdColorBlack '若红色替换为黑色
    
40.         End If
    
41.         Selection.MoveRight Unit:=wdCharacter, Count:=1
    
42.     Loop
    
43. End Sub

复制代码