WORD VBA 如何只替换掉选中内容中符合要求的第二个?

chenlifeng123

我在word中有如下内容，已经处于鼠标选中的状态：
                 “中国十九大于今天在北京成功成功召开。十九大召开的影响力遍及全球，世界各国都在热切关注中国在第十九大后的走向。”
我想把  第二个“十九大”    替换为   “这次”  。  请问VBA如何写呢？
        已知全部替换掉为：

1. Sub 宏1()
   
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.     End With
   
10.     Selection.Find.Execute Replace:=wdReplaceAll
    
11. End Sub

复制代码

  只替换掉第一个为：Selection.Find.Execute Replace:=1

zhanglei1371

1. Sub 宏1()
   
2.     Selection.Find.ClearFormatting
   
3.     Selection.Find.Replacement.ClearFormatting
   
4.     With Selection.Find
   
5.         .Text = "十九大"
   
6.         Do While .Execute
   
7.             i = i + 1
   
8.             If i = 2 Then .Parent = "这次": Exit Do
   
9.         Loop
   
10.     End With
    
11. End Sub
    

复制代码

chenlifeng123

zhanglei1371 发表于 2017-10-18 22:06

感谢帮助，太强大 了，完美解决问题~！