请看看这段代码哪里出错了啊？

kfj000

一个word里有很多“答案”，我想用下面这段代码替换第3个、第6个、第9个，每次运行下面这段代码的时候，只替换第3个，for那里不是循环3次吗？先查找2次，第3次查找的时候替换1次，然后再循环这段代码第2次，不应该是接着往下查找2次，然后替换第6个吗？
请各位指点下，我想错了吗？

Sub test()
    Dim myrange As Range, i As Integer
    Set myrange = ActiveDocument.Range
    With myrange.Find
        .Text = "答案"
        .Replacement.Text = "解析"
        .Forward = True
    End With

    For i = 1 To 3
       With myrange.Find
           .Execute
           .Execute
           .Execute Replace:=wdReplaceOne
       End With
    Next i

End Sub

413191246se

1. Sub test2()
   
2.     Dim MyRange As Range, i As Integer
   
3.     Set MyRange = ActiveDocument.Range
   
4.     With MyRange.Find
   
5.         .Text = "答案"
   
6.         .Replacement.Text = "解析"
   
7.         .Replacement.Font.ColorIndex = wdRed
   
8.         .Replacement.Font.Underline = wdUnderlineSingle
   
9.         .Forward = True
   
10.     End With
    
11. 
    
12.     For i = 1 To 3
    
13.        With MyRange.Find
    
14.            .Execute
    
15.             MyRange.SetRange Start:=MyRange.End, End:=ActiveDocument.Content.End
    
16. 
    
17.            .Execute
    
18.             MyRange.SetRange Start:=MyRange.End, End:=ActiveDocument.Content.End
    
19.            
    
20.            .Execute Replace:=wdReplaceOne
    
21.            MyRange.SetRange Start:=MyRange.End, End:=ActiveDocument.Content.End
    
22.        End With
    
23.     Next i
    
24. 
    
25. End Sub

复制代码

limonet

Sub test()
    Dim n As Integer, myrange As Range, s As Long
    Set myrange = ActiveDocument.Range
    Do
        With myrange.Find
            .Text = "答案"
            .Execute
            If .Found = True Then
                n = n + 1
                s = .Parent.End
                If n Mod 3 = 0 Then .Parent.Text = "解析"
                myrange.SetRange s, ActiveDocument.Range.End
            Else
                Exit Do
            End If
        End With
    Loop
    ActiveDocument.Save
End Sub

kfj000

413191246se 发表于 2022-1-5 11:06

MyRange.SetRange Start:=MyRange.End, End:=ActiveDocument.Content.End

谢谢，这句话太重要了，摆放位置和内容都很好的教导了我，原来除了Range，还可用Content。

kfj000

limonet 发表于 2022-1-5 12:06
Sub test()
    Dim n As Integer, myrange As Range, s As Long
    Set myrange = ActiveDocument.Ra ...

这段代码实在是看不大懂，自己写的那个代码能弄懂，就是差那么一点，看了2楼的，终于搞定了，也谢谢你的热心回答。

413191246se

楼主，你好！——我最近新发布了《Word 2003 & 2019 通用模板宏（2022元旦版）》，主要是公文自动排版，还有其它一些宏。你可以下载后仔细看一下说明文档 Readme.txt ，导入到通用模板后，有不少宏可以借鉴一下。比如：查找替换其实有三种类型：一是查找全文(Sub FindActiveDocument)；二是查找选定范围(Sub FindRange)；三是从插入点向后查找(Sub FindSelection)。其实，在 Range 里面查找，开始我也弄不清，一般要配合 .Select；如果觉得难，可以先用 Selection 对象比较容易一些，好理解一些；ActiveDocument 对象比较抽象，要配合 .Select 方法才好。