多处关键字符替换，要么很慢，要么死机！

sylun

相见是缘8 发表于 2021-4-28 07:10
sylun老师好！你看一下，是不是这样的？我试了2次，不知什么原因，代码都是运行了27分钟左右后死机。

两个小文档的内容差不多，只是前后有行，应删除，特别是中名录中的空行。
刚才我再测试过代码，可以运行，我的处理时间正常是4分钟左右，跟昨天的差不多。因测试文档较大，有110多万字。再加上500多个药材名与关键字符，修改的位置有3万多处，估计需要较大内存才好办。所以建议重启电脑再处理，处理时最好尽量少打开其他应用程序。
另外，可以在代码后面MsgBox行前一两行加上以下一行代码
ActiveDocument.UndoClear

相见是缘8

sylun 发表于 2021-4-28 23:52
两个小文档的内容差不多，只是前后有行，应删除，特别是中名录中的空行。
刚才我再测试过代码，可以运行 ...

老师好！

按你教的方法试了还是不成，代码一样运行了26分钟左右死机，这个可能正如你所说的，是我用的公司的电脑配置低的原因，这个没办法，只能放弃！代码收藏留以后自己买了电脑用，衷心感谢你的援手相助！谢谢！

tcdatongye

相见是缘8 发表于 2021-4-29 06:49
老师好！按你教的方法试了还是不成，代码一样运行了26分钟左右死机，这个可能正如你所说的，是我用的公司 ...

最好用excel表格列出来，有些字总觉得是一样。

tcdatongye

查找项（查找长度从长到短排列）    替换项                  说明（如小写括号等）

相见是缘8

tcdatongye 发表于 2021-4-29 19:04
查找项（查找长度从长到短排列）    替换项                  说明（如小写括号等）

老师好！
你真是个细心人，衷心感谢！

Jason_WangSS

1. Sub 替换()
   
2.     Selection.Find.ClearFormatting
   
3.     Selection.Find.Replacement.ClearFormatting
   
4.     With Selection.Find
   
5.         .Text = "大枣"
   
6.         .Replacement.Text = "红枣"
   
7.         .Forward = True
   
8.         .Wrap = wdFindContinue
   
9.         .MatchWildcards = False
   
10.         .Execute Replace:=wdReplaceAll
    
11.         
    
12.         .Text = "以"
    
13.         .Replacement.Text = "也"
    
14.         .Forward = True
    
15.         .Wrap = wdFindContinue
    
16.         .MatchWildcards = False
    
17.         .Execute Replace:=wdReplaceAll
    
18.         
    
19.         .Text = "盖"
    
20.         .Replacement.Text = "凡"
    
21.         .Forward = True
    
22.         .Wrap = wdFindContinue
    
23.         .MatchWildcards = False
    
24.         .Execute Replace:=wdReplaceAll
    
25.         
    
26.         .Text = "%"
    
27.         .Replacement.Text = "％"
    
28.         .Forward = True
    
29.         .Wrap = wdFindContinue
    
30.         .MatchWildcards = False
    
31.         .Execute Replace:=wdReplaceAll
    
32.         
    
33.         .Text = "》日"
    
34.         .Replacement.Text = "》曰"
    
35.         .Forward = True
    
36.         .Wrap = wdFindContinue
    
37.         .MatchWildcards = False
    
38.         .Execute Replace:=wdReplaceAll
    
39.         
    
40.         .Text = "("
    
41.         .Replacement.Text = "（"
    
42.         .Forward = True
    
43.         .Wrap = wdFindContinue
    
44.         .MatchWildcards = False
    
45.         .Execute Replace:=wdReplaceAll
    
46.         
    
47.         .Text = ")"
    
48.         .Replacement.Text = "）"
    
49.         .Forward = True
    
50.         .Wrap = wdFindContinue
    
51.         .MatchWildcards = False
    
52.         .Execute Replace:=wdReplaceAll
    
53.         
    
54.         .Text = "。）"
    
55.         .Replacement.Text = "）。"
    
56.         .Forward = True
    
57.         .Wrap = wdFindContinue
    
58.         .MatchWildcards = False
    
59.         .Execute Replace:=wdReplaceAll
    
60.         
    
61.         .Text = " ）"
    
62.         .Replacement.Text = "）"
    
63.         .Forward = True
    
64.         .Wrap = wdFindContinue
    
65.         .MatchWildcards = False
    
66.         .Execute Replace:=wdReplaceAll
    
67.         
    
68.         .Text = "（ "
    
69.         .Replacement.Text = "（"
    
70.         .Forward = True
    
71.         .Wrap = wdFindContinue
    
72.         .MatchWildcards = False
    
73.         .Execute Replace:=wdReplaceAll
    
74.         
    
75.         .Text = "([钱两]半)，"
    
76.         .Replacement.Text = "\1、"
    
77.         .Forward = True
    
78.         .Wrap = wdFindContinue
    
79.         .MatchWildcards = True
    
80.         .Execute Replace:=wdReplaceAll
    
81.         
    
82.         .Text = "([钱两克枚])，"
    
83.         .Replacement.Text = "\1、"
    
84.         .Forward = True
    
85.         .Wrap = wdFindContinue
    
86.         .MatchWildcards = True
    
87.         .Execute Replace:=wdReplaceAll
    
88.         
    
89.         .Text = "曰[.，,；∶:︰。：]"
    
90.         .Replacement.Text = "曰："
    
91.         .Forward = True
    
92.         .Wrap = wdFindContinue
    
93.         .MatchWildcards = True
    
94.         .Execute Replace:=wdReplaceAll
    
95.         
    
96.         .Text = "[\-~]"
    
97.         .Replacement.Text = "～"
    
98.         .Forward = True
    
99.         .Wrap = wdFindContinue
    
100.         .MatchWildcards = True
     
101.        .Execute Replace:=wdReplaceAll
     
102.     End With   
     
103. End Sub

复制代码

Jason_WangSS

重复，删除

相见是缘8

Jason_WangSS 发表于 2021-5-4 10:12

老师好！
你的这个代码，在1200多页的大文档中，替换29个不同的关键字符，在我这个配置低的电脑上，不但不死机，且速度很快，十多秒就替换好了。衷心感谢你！谢谢！