替换代码简化

hnhybj

本人在处理文档时，需要对文档进行处理，即通过查找替换功能把一些字符处理掉。

413191246se

为楼主简化了一些，但有些不敢确定，故请楼主自己斟酌吧！

1. Sub 字符更正设置_New()
   
2. 
   
3. '   关闭屏幕刷新。（利于提高运行速度）
   
4. '    Application.ScreenUpdating = False
   
5. 
   
6. 'Sub 删除所有空格()
   
7.     Dim myRange As Range
   
8.     If Selection.Type = wdSelectionIP Then Selection.WholeStory
   
9.     Set myRange = Selection.Range
   
10.     myRange.Find.Execute FindText:="　", replacewith:="", Replace:=wdReplaceAll    '删除所有全角空格
    
11.     myRange.Find.Execute FindText:="^w", replacewith:="", Replace:=wdReplaceAll    '删除所有空白区域
    
12. 
    
13. 'Sub 替换全角数字字母为半角()
    
14.     Dim myRange As Range
    
15.     Set myRange = ActiveDocument.Content
    
16.     myRange.Find.ClearFormatting
    
17.     Do While myRange.Find.Execute(FindText:="[Ａ-Ｚａ-ｚ０-９]", Wrap:=wdFindStop, Format:=False, MatchWildcards:=True)
    
18.         myRange.CharacterWidth = wdWidthHalfWidth
    
19.         Set myRange = ActiveDocument.Range(myRange.End, ActiveDocument.Content.End)
    
20.     Loop
    
21. 
    
22. 'A 全部替换为 B
    
23.     ActiveDocument.Content.Find.Execute FindText:="〇", replacewith:="○", Replace:=wdReplaceAll
    
24.     ActiveDocument.Content.Find.Execute FindText:="％", replacewith:="%", Replace:=wdReplaceAll, MatchWildcards:=False
    
25.     ActiveDocument.Content.Find.Execute FindText:="(", replacewith:="（", Replace:=wdReplaceAll '英文左括号全部替换为中文
    
26.     ActiveDocument.Content.Find.Execute FindText:=")", replacewith:="）", Replace:=wdReplaceAll '英文右括号全部替换为中文
    
27. 
    
28. '   将光标移到文档第1个字符前。
    
29.     Selection.HomeKey Unit:=wdStory
    
30.      
    
31. '   转换文档中的全角数值为半角数值。
    
32. '    With Selection.Find
    
33. '        .Text = "％"
    
34. '        .Replacement.Text = "%"
    
35. '        .Wrap = wdFindContinue
    
36. '        .MatchWildcards = False
    
37. '    End With
    
38. '    Selection.Find.Execute Replace:=wdReplaceAll
    
39. '
    
40.     With Selection.Find
    
41.         .Text = "([0-9]@)．([0-9]@)"
    
42.         .Replacement.Text = "\1.\2"
    
43.         .Wrap = wdFindContinue
    
44.         .MatchWildcards = True
    
45.     End With
    
46.     Selection.Find.Execute Replace:=wdReplaceAll
    
47.         
    
48. '   半角要点分隔点号转换成全角。
    
49.     With Selection.Find
    
50.         .Text = "([0-9]).([!0-9])"
    
51.         .Replacement.Text = "\1．\2"
    
52.         .Wrap = wdFindContinue
    
53.         .MatchWildcards = True
    
54.     End With
    
55.     Selection.Find.Execute Replace:=wdReplaceAll
    
56.    
    
57. '   英文标点转换成中文标点。
    
58.     With Selection.Find
    
59.         .Text = "([!a-zA-Z]):([!a-zA-Z])"
    
60.         .Replacement.Text = "\1：\2"
    
61.         .Wrap = wdFindContinue
    
62.         .MatchWildcards = True
    
63.     End With
    
64.     Selection.Find.Execute Replace:=wdReplaceAll
    
65.     With Selection.Find
    
66.         .Text = "([!a-zA-Z]),([!a-zA-Z])"
    
67.         .Replacement.Text = "\1，\2"
    
68.         .Wrap = wdFindContinue
    
69.         .MatchWildcards = True
    
70.     End With
    
71.     Selection.Find.Execute Replace:=wdReplaceAll
    
72.     With Selection.Find
    
73.         .Text = "([!a-zA-Z]);([!a-zA-Z])"
    
74.         .Replacement.Text = "\1；\2"
    
75.         .Wrap = wdFindContinue
    
76.         .MatchWildcards = True
    
77.     End With
    
78.     Selection.Find.Execute Replace:=wdReplaceAll
    
79.     With Selection.Find
    
80.         .Text = "([!a-zA-Z])\?([!a-zA-Z])"
    
81.         .Replacement.Text = "\1？\2"
    
82.         .Wrap = wdFindContinue
    
83.         .MatchWildcards = True
    
84.     End With
    
85.     Selection.Find.Execute Replace:=wdReplaceAll
    
86.    
    
87. '   转换成标准文号括号。
    
88.     With Selection.Find
    
89.         .Text = "([\[［])([0-9]{4})([\]］])"
    
90.         .Replacement.Text = "〔\2〕"
    
91.         .Wrap = wdFindContinue
    
92.         .MatchWildcards = True
    
93.     End With
    
94.     Selection.Find.Execute Replace:=wdReplaceAll
    
95.             
    
96. '   更换标准年份数字分隔符。
    
97.     With Selection.Find
    
98.         .Text = "([0-9]{4})[-—]([0-9]{4})"
    
99.         .Replacement.Text = "\1－\2"
    
100.         .Wrap = wdFindContinue
     
101.         .MatchWildcards = True
     
102.     End With
     
103.     Selection.Find.Execute Replace:=wdReplaceAll
     
104.       
     
105. End Sub

复制代码

loquat

就不狗尾续貂了。
提供几点建议供参考。
1.全角空格和半角空格可以1次去掉
   [ 　]{1,}替换为""
2.所有全角和半角的转换可以用一次性选中，然后用Selection.Range.CharacterWidth = wdWidthFullWidth 或者 wdWidthHalfWidth
   全角转半角：[０-９％．]
   半角转全角：[\(\)]
   半角转全角：[!a-zA-Z])([,;:?]{1})([!a-zA-Z])   这个需要特殊处理一下