怎么把查找到的内容标记成绿色

kerry786032

我想查找到文中的Proc. Natl. Acad. Sci. 把他替换成Proc. Natl. Acad. Sci. USA，并且高亮成绿色，我写了如下代码。但是运行了并没有标记成绿色，这是为什么？还请老师帮忙指正下。自己是个新手，如果犯的错误太过低级，还望老师不要厌烦。

1. Sub usa()
   
2. selection.find.clearforamtting
   
3.     With selection.Find
   
4.         .Text = "Proc. Natl. Acad. Sci. "
   
5.         .Wrap = wdFindContinue
   
6.         .Forward = True
   
7.         .MatchCase = False
   
8.         .MatchWildcards = False
   
9.         Do
   
10.             .Execute
    
11.             If .Found And selection.Range.Next(wdCharacter, 1) <> "U" Then
    
12.                 selection.Range.Text = "Proc. Natl. Acad. Sci. USA "
    
13.                 selection.Range.HighlightColorIndex = wdBrightGreen
    
14.                 End If
    
15.                 If Not .Found Then
    
16.                 Exit Do
    
17.                 End If
    
18.                 Loop
    
19.                 End With
    
20.                
    
21. End Sub

复制代码

补充： 我把
selection.Range.Text = "Proc. Natl. Acad. Sci. USA "
selection.Range.HighlightColorIndex = wdBrightGreen 这两句换成
selection.Range.InsertAfter "USA "
selection.Range.HighlightColorIndex = wdRed
这样就可以标记了，但是只可以标记Proc. Natl. Acad. Sci. ； 如果我要想标记已经被替换过的Proc. Natl. Acad. Sci. USA，我应该怎么写呢

kerry786032

如果我把selection.Range.Text = "Proc. Natl. Acad. Sci. USA "                 selection.Range.HighlightColorIndex = wdBrightGreen 这两句换成 selection.Range.InsertAfter "USA "                selection.Range.HighlightColorIndex = wdRed

kerry786032

如果我把
selection.Range.Text = "Proc. Natl. Acad. Sci. USA "               
  selection.Range.HighlightColorIndex = wdBrightGreen 这两句换成
selection.Range.InsertAfter "USA "               
selection.Range.HighlightColorIndex = wdBrightGreen 就可以高亮了，是因为TEXT的内容变了，所以不能标记吗？    而且我也只能标记出Proc. Natl. Acad. Sci.；我要是想把替换过的Proc. Natl. Acad. Sci. USA全部标记成绿色应该怎么做呢

kerry786032

我把
selection.Range.Text = "Proc. Natl. Acad. Sci. USA "
selection.Range.HighlightColorIndex = wdBrightGreen 这两句换成
selection.Range.InsertAfter "USA "
selection.Range.HighlightColorIndex = wdRed
这样就可以标记了，但是只可以标记Proc. Natl. Acad. Sci. ； 如果我要想标记已经被替换过的Proc. Natl. Acad. Sci. USA，我应该怎么写呢

kerry786032

我把
selection.Range.Text = "Proc. Natl. Acad. Sci. USA "
selection.Range.HighlightColorIndex = wdBrightGreen 这两句换成
selection.Range.InsertAfter "USA "
selection.Range.HighlightColorIndex = wdRed
这样就可以标记了，但是只可以标记Proc. Natl. Acad. Sci. ； 如果我要想标记已经被替换过的Proc. Natl. Acad. Sci. USA，我应该怎么写呢

kerry786032

我把
selection.Range.Text = "Proc. Natl. Acad. Sci. USA "
selection.Range.HighlightColorIndex = wdBrightGreen 这两句换成
selection.Range.InsertAfter "USA "
selection.Range.HighlightColorIndex = wdRed
这样就可以标记了，但是只可以标记Proc. Natl. Acad. Sci. ； 如果我要想标记已经被替换过的Proc. Natl. Acad. Sci. USA，我应该怎么写呢

kerry786032

非常尴尬，刚刚卡了，一下发了这么多重复了，请问下怎么删除自己的帖子啊？

duquancai

你犯的错误：主要是没有附件！！！