如何使用VBA代码更改以“$”开头并以“F”或“A”结尾的字符串的字体颜色

Question

我是初学者，试图学习和理解代码。目前，我在MS word文档中将字符串“$ 1mF”的字体颜色更改为绿色，将“$ 1mA”更改为红色。开始和结束是恒定的，即以$开始并以A或F结束。目的是以F结尾的字符串表示有利和积极的影响（即绿色），以A结尾的字符串表示不利和负面影响（即红色）那太大胆了。我现在手动进行。我确实尝试了一些我在这个网站上找到的例子，并且稍微调整了一些例子，但是dint完全达到了预期的结果。

对此的任何快速帮助将不胜感激。

Answer 1

此代码可能会做的伎俩

 
Sub ChangeColorRedGreen() 

    With Selection.Find 
    .ClearFormatting 
    .MatchWholeWord = True 
    .MatchCase = False 
    .MatchWildcards = True 
    .Replacement.ClearFormatting 
    .Execute FindText:="$*F" 
    .Replacement.Font.Color = wdColorGreen 
    End With 
    Selection.Find.Execute Replace:=wdReplaceAll 

    With Selection.Find 
    .ClearFormatting 
    .MatchWholeWord = True 
    .MatchCase = False 
    .MatchWildcards = True 
    .Replacement.ClearFormatting 
    .Execute FindText:="$*A" 
    .Replacement.Font.Color = wdColorRed 
    End With 
    Selection.Find.Execute Replace:=wdReplaceAll 

End Sub 

还阅读：https://msdn.microsoft.com/en-us/library/office/ff193977(v=office.14).aspx
类似的（不相同）的情况下，在这里：Find all instances of yellow text and change font color to red