word替换问题详见附件，

tengjunlucky

我只是列举其中一个，能不能用替换功能的通配符

daibao88

有W97M/Thus.gen.a特洛伊木马，勿下！

tengjunlucky

daibao88 发表于 2019-12-19 21:39
有W97M/Thus.gen.a特洛伊木马，勿下！

不会吧，我自己建的word 压缩的，我明天重新新建一个吧

tengjunlucky

daibao88 发表于 2019-12-19 21:39
有W97M/Thus.gen.a特洛伊木马，勿下！

我打开了也显示有病毒，就是请问如何将1.1、1.2、1.1.1、1.1.2、1.1.1.1、1.1.1.2、、、、
                                               替换为 2.1、2.2、2.2.1、2.2.2、2.2.2.1、2.2.2.2、、、
想用word通配符，我写方案，挨着改好麻烦

413191246se

1. Sub test()
   
2.     With ActiveDocument.Content.Find
   
3.         .ClearFormatting
   
4.         .Text = "[1.]@[12]"
   
5.         .Forward = True
   
6.         .MatchWildcards = True
   
7.         Do While .Execute
   
8.             With .Parent
   
9.                 .MoveEnd 1, -1
   
10.                 .Text = Replace(.Text, "1", "2")
    
11.                 .Start = .End
    
12.             End With
    
13.         Loop
    
14.     End With
    
15. End Sub

复制代码