word模糊替换

413191246se

yhs185

gbgbxgb 发表于 2018-12-1 17:28
代码书写者所说的“坑”大意是指代码写得匆忙、考虑不周，有可能不适应Word文档的复杂情况。

就其代码 ...

谢谢，明白了，非常感谢了！

yfy19870127

相见是缘8 发表于 2018-12-1 06:37
唉！楼主好福气！一求助就能得到两位顶级大神的解答，而两位大神的辛苦解答却碰到和我一样的小白，这让大 ...

谢谢，我这两天休息，没注意看，非常感谢大神的帮忙。确实是工作需要，每天都要处理大量文档

yfy19870127

413191246se 发表于 2018-12-1 18:52

谢谢，好强大

yfy19870127

413191246se 发表于 2018-12-1 18:52

谢谢，好强大

ming0018

1. Sub test_main_findStr()
   
2.     Dim doc As Document, Rng As Range
   
3.     Set doc = ActiveDocument: Set Rng = doc.Content
   
4.     With Rng.Find
   
5.         .Text = "[A-D]项，[!^13]{1,}"
   
6.         .MatchWildcards = True
   
7.         Do While .Execute
   
8.             If .Parent.Start = .Parent.Paragraphs(1).Range.Start Then
   
9.                 If Right(Trim(.Parent.Text), 4) = "，错误；" Then
   
10.                     Call test_insertStr(.Parent, "错误；", .Parent.Characters(1).Text)
    
11.                 ElseIf Right(Trim(.Parent.Text), 4) = "，正确；" Then
    
12.                     Call test_insertStr(.Parent, "正确；", .Parent.Characters(1).Text)
    
13.                 End If
    
14.             ElseIf doc.Range(.Parent.Paragraphs(1).Range.Start, .Parent.Paragraphs(1).Range.Start + 6).Text = "解析：A项，" Then
    
15.                 If Right(Trim(.Parent.Text), 4) = "，错误；" Then
    
16.                     Call test_insertStr(.Parent, "错误；", .Parent.Characters(1).Text)
    
17.                 ElseIf Right(Trim(.Parent.Text), 4) = "，正确；" Then
    
18.                     Call test_insertStr(.Parent, "正确；", .Parent.Characters(1).Text)
    
19.                 End If
    
20.             End If
    
21.             .Parent.Start = .Parent.End
    
22.         Loop
    
23.     End With
    
24.     msgbox "done"
    
25. End Sub
    
26. 
    
27. Sub test_insertStr(myRng As Range, findStr$, insertStr$)
    
28.     Dim doc As Document, insertRng As Range
    
29.     Set doc = ActiveDocument
    
30.     Set insertRng = doc.Range(myRng.Start + InStrRev(myRng.Text, findStr) - 1, myRng.End)
    
31.     insertRng.InsertBefore insertStr
    
32.     '最后一句可以不要
    
33.     insertRng.Font.ColorIndex = wdRed
    
34. End Sub

复制代码

今天比较有空，又写了一个比较成熟的，坑也比较少的！你可以试试！

yfy19870127

ming0018 发表于 2018-12-3 10:27
今天比较有空，又写了一个比较成熟的，坑也比较少的！你可以试试！

刚试了一下，很好用，感谢你花时间帮我解答问题，替换的还会标红，很显眼，再次感谢大神。

问题解决了，谢谢大家。