各位老师，请教个WORD中VBA代码，先谢谢大家了：

yjwdjfqb

各位老师，请教个WORD中VBA代码，先谢谢大家了：

在WORD文档中，在指定字符后面。插入一个指定字符

在　第一章、第二章、第三章、、、、第N章　　　的文字后面加一个　A字，如：
第一章测试文字　　　执行代码后变成：　　第一章A测试文字

在　第1章、第2章、第3章、、、、第N章　　　的文字后面加一个　B字，如：
第1章测试文字　　　执行代码后变成：　　第1章B测试文字

在　第一条、第二条、第三条、、、、第N条　　　的文字后面加一个　C字，如：
第一条测试文字　　　执行代码后变成：　　第一条C测试文字

在　第1条、第2条、第3条、、、、第N条　　　的文字后面加一个　D字，如：
第1条测试文字　　　执行代码后变成：　　第1条D测试文字

请各位高手老师帮帮忙，谢谢大家了！

shenghua8

帮楼主录个基础的，你自己整理一下。

1. Sub 宏1()
   
2. Selection.Find.ClearFormatting
   
3. Selection.Find.Replacement.ClearFormatting
   
4. With Selection.Find
   
5. .Text = "(第[一二三四五六七八九十]@章)"
   
6. .Replacement.Text = "\1A"
   
7. .Forward = True
   
8. .Wrap = wdFindContinue
   
9. .Format = False
   
10. .MatchCase = False
    
11. .MatchWholeWord = False
    
12. .MatchByte = False
    
13. .MatchAllWordForms = False
    
14. .MatchSoundsLike = False
    
15. .MatchWildcards = True
    
16. End With
    
17. Selection.Find.Execute Replace:=wdReplaceAll
    
18. 
    
19. Selection.Find.ClearFormatting
    
20. Selection.Find.Replacement.ClearFormatting
    
21. With Selection.Find
    
22. .Text = "(第[0-9]@章)"
    
23. .Replacement.Text = "\1B"
    
24. .Forward = True
    
25. .Wrap = wdFindContinue
    
26. .Format = False
    
27. .MatchCase = False
    
28. .MatchWholeWord = False
    
29. .MatchByte = False
    
30. .MatchAllWordForms = False
    
31. .MatchSoundsLike = False
    
32. .MatchWildcards = True
    
33. End With
    
34. Selection.Find.Execute Replace:=wdReplaceAll
    
35. 
    
36. Selection.Find.ClearFormatting
    
37. Selection.Find.Replacement.ClearFormatting
    
38. With Selection.Find
    
39. .Text = "(第[一二三四五六七八九十]@条)"
    
40. .Replacement.Text = "\1C"
    
41. .Forward = True
    
42. .Wrap = wdFindContinue
    
43. .Format = False
    
44. .MatchCase = False
    
45. .MatchWholeWord = False
    
46. .MatchByte = False
    
47. .MatchAllWordForms = False
    
48. .MatchSoundsLike = False
    
49. .MatchWildcards = True
    
50. End With
    
51. Selection.Find.Execute Replace:=wdReplaceAll
    
52. 
    
53. Selection.Find.ClearFormatting
    
54. Selection.Find.Replacement.ClearFormatting
    
55. With Selection.Find
    
56. .Text = "(第[0-9]@条)"
    
57. .Replacement.Text = "\1D"
    
58. .Forward = True
    
59. .Wrap = wdFindContinue
    
60. .Format = False
    
61. .MatchCase = False
    
62. .MatchWholeWord = False
    
63. .MatchByte = False
    
64. .MatchAllWordForms = False
    
65. .MatchSoundsLike = False
    
66. .MatchWildcards = True
    
67. End With
    
68. Selection.Find.Execute Replace:=wdReplaceAll
    
69. End Sub
    

复制代码

duquancai

也可以用前台的处理方法，比如：查找替换。

yjwdjfqb

shenghua8 发表于 2015-8-10 16:46
帮楼主录个基础的，你自己整理一下。

谢谢你老师，就是这句中这个　1　是什么意思，我没有看明白，请老师指点下，谢谢老师了！

06..Replacement.Text = "\1A"

shenghua8

使用通配符替换第1个表达式。
也就是“查找”栏第1对半角圆括号括起来的原文。

413191246se

楼主如果不喜欢各种颜色，可以注释或删除颜色语句，也可以全选/自动色全文。
Sub test()
    On Error Resume Next
    Dim i As Paragraph
    For Each i In ActiveDocument.Paragraphs
        If i.Range Like "第[一二三四五六七八九十]章*" Or i.Range Like "第[二三四五六七八九十][一二三四五六七八九十]章*" Or i.Range Like "第[二三四五六七八九]十[一二三四五六七八九]章*" Then
            i.Range.Font.Color = wdColorRed '红色
            i.Range.Characters(InStr(i.Range, "章")).InsertAfter Text:="A"
        ElseIf i.Range Like "第#章*" Or i.Range Like "第##章*" Or i.Range Like "第###章*" Then
            i.Range.Font.Color = wdColorPink '粉红
            i.Range.Characters(InStr(i.Range, "章")).InsertAfter Text:="B"
        ElseIf i.Range Like "第[一二三四五六七八九十]条*" Or i.Range Like "第[二三四五六七八九十][一二三四五六七八九十]条*" Or i.Range Like "第[二三四五六七八九]十[一二三四五六七八九]条*" Then
            i.Range.Font.Color = wdColorBlue '蓝色
            i.Range.Characters(InStr(i.Range, "条")).InsertAfter Text:="C"
        ElseIf i.Range Like "第#条*" Or i.Range Like "第##条*" Or i.Range Like "第###条*" Then
            i.Range.Font.Color = wdColorGreen '绿色
            i.Range.Characters(InStr(i.Range, "条")).InsertAfter Text:="D"
        End If
    Next
End Sub

yjwdjfqb

413191246se 发表于 2015-8-10 21:59
楼主如果不喜欢各种颜色，可以注释或删除颜色语句，也可以全选/自动色全文。
Sub test()
    On Error Re ...

谢谢你了老师，非常的好用，而且加了颜色更好，谢谢了老师！