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

13907933959

413191246se 发表于 2016-5-9 10:07
139：你的耐心很好！这点我不如你。——明明一段代码可以解决，你偏偏要三段代码，我还是提供了你要的代码 ...

师傅好！
3个代码测试均OK！
感谢师傅不厌其烦的满足徒弟的要求，徒弟也只是在师傅这里任任性，请求师傅原谅！

师傅、打开模拟文档，在VBE中把光标放到宏代码处，观察具体执行步骤，每按一下F8键，代码处的语句会随着光标往下走，并依次一句一句变为黄色，可有的语句光标会直接跳过，语句也不会变黄，如一个宏总共有15行代码，按F8键依次一句一句往下时，中间有5行代码不变黄，光标直接跳过，再下面的代码光标又会一句一句依次往下变黄至结束，反复按都一样。代码可正常运行，不知是什么原因？

413191246se

好，请贴上来看看。。。

13907933959

413191246se 发表于 2016-5-9 15:16
好，请贴上来看看。。。

师傅好！
由于这几天比较忙，前几天那个代码没在意具体是那一个，记不起来了，今天下午找了一下午都没找到，刚才试了一下师傅给的这个代码，打开附件按F8光标好像也不是逐行跳过，代码内7～10行也是一下跳过，而代码运行替换都正常。
Sub 查找替换()
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Do While Selection.Find.Execute(FindText:="：", Forward:=True)
        Selection.MoveStart Unit:=wdCharacter, Count:=-1
        Selection.MoveEnd Unit:=wdCharacter, Count:=1
        If Selection Like "[0-9]?[0-9]" Then
            Selection.MoveStart Unit:=wdCharacter, Count:=1
            Selection.MoveEnd Unit:=wdCharacter, Count:=-1
            Selection.Font.Color = wdColorRed
            If Selection.Font.Color = wdColorRed Then Selection.Text = "∶"
        End If
        Selection.MoveRight Unit:=wdCharacter, Count:=1
    Loop
End Sub

413191246se

139：知道了！有几行代码跳过去了，是因为你遇到了--判断语句IF...THEN语句，如果符合条件，则执行；否则，不执行（故跳过去了）。
IF X>0 THEN
    msgbox"X是正数！"
ELSE
    msgbox"X是0或负数！"
END IF

13907933959

413191246se 发表于 2016-5-10 11:03
139：知道了！有几行代码跳过去了，是因为你遇到了--判断语句IF...THEN语句，如果符合条件，则执行；否则， ...

师傅好！
啊！原来是这样！感谢师傅的点化！
认识师傅快一年，师傅传授的东西真不少，可自已还是感觉摸不到VBA的门，真是愧对师傅！
感谢师傅一年来对徒弟的传艺！师傅辛苦了！！！