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

13907933959

413191246se 发表于 2016-4-28 14:57
139：我仍然不明白你的意思，请举例详述之（上面单文档代码已经设置了红色）。

师傅好！

就是想请您再编写一个“数字之间中文冒号转换为英文冒号”的宏，但它的判别条件，是通过把数字之间的中文冒号变色的方法，如先把这个数字之间的中文冒号变为蓝色，再查找蓝色的中文冒号，替换为黑色的英文冒号。

循环遍历和处理单个文档的2个宏都想请师傅给一下。

413191246se

139：明明可以一步完成，你非要两步完成，多此一举啊！（不过，仍然提供了你要求的代码。）
单文档两步代码：

1. Sub 查找数字之间的中文冒号()
   
2.     Selection.HomeKey Unit:=wdStory
   
3.     Selection.Find.ClearFormatting
   
4.     Do While Selection.Find.Execute(FindText:="：", Forward:=True)
   
5.         Selection.MoveStart Unit:=wdCharacter, Count:=-1
   
6.         Selection.MoveEnd Unit:=wdCharacter, Count:=1
   
7.         If Selection Like "[0-9]?[0-9]" Then
   
8.             Selection.MoveStart Unit:=wdCharacter, Count:=1
   
9.             Selection.MoveEnd Unit:=wdCharacter, Count:=-1
   
10.             Selection.Font.Color = wdColorRed '红色
    
11.         End If
    
12.         Selection.MoveRight Unit:=wdCharacter, Count:=1
    
13.     Loop
    
14. End Sub
    
15. Sub 查找数字之间的红色中文冒号()
    
16.     Selection.HomeKey Unit:=wdStory
    
17.     Selection.Find.ClearFormatting
    
18.     Do While Selection.Find.Execute(FindText:="：", Forward:=True)
    
19.         Selection.MoveStart Unit:=wdCharacter, Count:=-1
    
20.         Selection.MoveEnd Unit:=wdCharacter, Count:=1
    
21.         If Selection Like "[0-9]?[0-9]" Then
    
22.             Selection.MoveStart Unit:=wdCharacter, Count:=1
    
23.             Selection.MoveEnd Unit:=wdCharacter, Count:=-1
    
24.             If Selection.Font.Color = wdColorRed Then Selection.Text = ":"
    
25.         End If
    
26.         Selection.MoveRight Unit:=wdCharacter, Count:=1
    
27.     Loop
    
28. End Sub

复制代码

413191246se

多文档代码（未做测试，每篇文档为红色不好吧？）

1. Sub 循环遍历文件夹_查找数字之间中文冒号_Part1()
   
2.     On Error Resume Next
   
3.     Dim fd As FileDialog, i As Long, doc As Document, p As String
   
4.     Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   
5.     If fd.Show = -1 Then p = fd.SelectedItems(1) Else Exit Sub
   
6.     Set fd = Nothing
   
7.     If MsgBox("是否处理文件夹 " & p & " ?", vbYesNo + vbExclamation, "循环遍历文件夹_通用") = vbNo Then Exit Sub
   
8.     With Application.FileSearch
   
9.         .NewSearch
   
10.         .LookIn = p
    
11.         .SearchSubFolders = True
    
12.         .FileName = "*.doc"
    
13.         If .Execute > 0 Then
    
14.             For i = 1 To .FoundFiles.Count
    
15.                 Set doc = Documents.Open(FileName:=.FoundFiles(i))
    
16. '''                doc.Content.Font.Color = wdColorRed '处理单个文档（通用）
    
17.                 'Sub 查找数字之间的中文冒号()
    
18.                 Selection.HomeKey Unit:=wdStory
    
19.                 Selection.Find.ClearFormatting
    
20.                 Do While Selection.Find.Execute(FindText:="：", Forward:=True)
    
21.                     Selection.MoveStart Unit:=wdCharacter, Count:=-1
    
22.                     Selection.MoveEnd Unit:=wdCharacter, Count:=1
    
23.                     If Selection Like "[0-9]?[0-9]" Then
    
24.                         Selection.MoveStart Unit:=wdCharacter, Count:=1
    
25.                         Selection.MoveEnd Unit:=wdCharacter, Count:=-1
    
26.                         Selection.Font.Color = wdColorRed '红色
    
27.                     End If
    
28.                     Selection.MoveRight Unit:=wdCharacter, Count:=1
    
29.                 Loop
    
30. '''
    
31.                 doc.Close savechanges:=wdSaveChanges
    
32.             Next i
    
33.             MsgBox "处理完毕！共处理 " & .FoundFiles.Count & " 个文件！", vbOKOnly + vbExclamation, "循环遍历文件夹_通用"
    
34.         Else
    
35.             MsgBox "未发现文件！", vbOKOnly + vbCritical, "循环遍历文件夹_通用"
    
36.         End If
    
37.     End With
    
38. End Sub
    
39. Sub 循环遍历文件夹_数字之间红色中文冒号转英文_Part2()
    
40.     On Error Resume Next
    
41.     Dim fd As FileDialog, i As Long, doc As Document, p As String
    
42.     Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    
43.     If fd.Show = -1 Then p = fd.SelectedItems(1) Else Exit Sub
    
44.     Set fd = Nothing
    
45.     If MsgBox("是否处理文件夹 " & p & " ?", vbYesNo + vbExclamation, "循环遍历文件夹_通用") = vbNo Then Exit Sub
    
46.     With Application.FileSearch
    
47.         .NewSearch
    
48.         .LookIn = p
    
49.         .SearchSubFolders = True
    
50.         .FileName = "*.doc"
    
51.         If .Execute > 0 Then
    
52.             For i = 1 To .FoundFiles.Count
    
53.                 Set doc = Documents.Open(FileName:=.FoundFiles(i))
    
54. '''                doc.Content.Font.Color = wdColorRed '处理单个文档（通用）
    
55.                 'Sub 查找数字之间的红色中文冒号()
    
56.                 Selection.HomeKey Unit:=wdStory
    
57.                 Selection.Find.ClearFormatting
    
58.                 Do While Selection.Find.Execute(FindText:="：", Forward:=True)
    
59.                     Selection.MoveStart Unit:=wdCharacter, Count:=-1
    
60.                     Selection.MoveEnd Unit:=wdCharacter, Count:=1
    
61.                     If Selection Like "[0-9]?[0-9]" Then
    
62.                         Selection.MoveStart Unit:=wdCharacter, Count:=1
    
63.                         Selection.MoveEnd Unit:=wdCharacter, Count:=-1
    
64.                         If Selection.Font.Color = wdColorRed Then Selection.Text = ":"
    
65.                     End If
    
66.                     Selection.MoveRight Unit:=wdCharacter, Count:=1
    
67.                 Loop
    
68. '''
    
69.                 doc.Close savechanges:=wdSaveChanges
    
70.             Next i
    
71.             MsgBox "处理完毕！共处理 " & .FoundFiles.Count & " 个文件！", vbOKOnly + vbExclamation, "循环遍历文件夹_通用"
    
72.         Else
    
73.             MsgBox "未发现文件！", vbOKOnly + vbCritical, "循环遍历文件夹_通用"
    
74.         End If
    
75.     End With
    
76. End Sub

复制代码

13907933959

413191246se 发表于 2016-4-29 09:46
139：明明可以一步完成，你非要两步完成，多此一举啊！（不过，仍然提供了你要求的代码。）
单文档两步代 ...

师傅好！
我的意思是把这2个单个文档的宏合为一个宏。
另外、这个第2个单个宏在附件上运行了，好象还少了一步，把红色的中文冒号替换为黑色的英文冒号的步骤，请师傅一起修改一下。

13907933959

413191246se 发表于 2016-4-29 09:50
多文档代码（未做测试，每篇文档为红色不好吧？）

师傅好！
我的意思不是把每篇文档都变为红色，只是想把文档内数字与数字之间的中文冒号变为红色，再查找红色的中文冒号，替换为黑色的英文冒号。

师傅、请把这2个循环遍历文件夹的宏合为一个宏。另外、这个第2个循环遍历文件夹的宏在附件上运行了，好象也少了一步，把红色的中文冒号替换为黑色的英文冒号的步骤，请师傅一起修改一下。

413191246se

139：你原来说分两步，现在又要合成一步，如果合成一步的话，那就没必要再找到中文冒号设为红色，再把红色替换为黑色英文冒号了！

13907933959

413191246se 发表于 2016-5-3 15:33
139：你原来说分两步，现在又要合成一步，如果合成一步的话，那就没必要再找到中文冒号设为红色，再把红色 ...

师傅好！
抱歉！由于徒弟的表达能力差，总不能很准确的描述问题，让师傅产生误判、请见谅！

我的意思是说、在一个宏里面包含这二步功能：
第一步、查找中文冒号→替换为红色英文冒号
第二步、查找红色英文冒号→替换为黑色

先前师傅以给了一个一步到位解决问题的宏，但不是用变颜色的方法。
这次师傅用了变颜色的方法，却把它分成了2个单独的宏，里面还都少了一步：查找红色英文冒号→替换为黑色
劳请师傅再加上这一步。

413191246se

139：查找红色，给谁看？

13907933959

413191246se 发表于 2016-5-4 10:08
139：查找红色，给谁看？

师傅好！
没明白您的意思！

413191246se

139：此宏瞬息完成，一气呵成！中间变为红色再变为黑色，完全没有必要。