Ms word 如何更改以“开始”开头的字符串的字体颜色$&引用；并以“结束”；F"；或；A「；在Ms word中使用VBA代码_Ms Word

Ms word 如何更改以“开始”开头的字符串的字体颜色$&引用；并以“结束”；F"；或；A「；在Ms word中使用VBA代码

ms-word

Ms word 如何更改以“开始”开头的字符串的字体颜色$&引用；并以“结束”；F"；或；A「；在Ms word中使用VBA代码,ms-word,Ms Word,我是初学者，正在努力学习和理解代码。目前，在MS word文档中将字符串“$1mF”的字体颜色更改为绿色，将“$1mA”的字体颜色更改为红色，这让我大吃一惊。开头和结尾是常量，即以$开头，以A或F结尾。目的是以F结尾的字符串表示有利和积极的影响（即绿色），以A结尾的字符串表示不利和消极的影响（即红色），过于粗体。从现在开始，我一直在手动操作。我确实尝试了一些我在这个网站上找到的例子，并对它们进行了一些调整，但仍然没有达到预期的效果如果您能在这方面迅速提供帮助，我们将不胜感激这段代码可能会起作

我是初学者，正在努力学习和理解代码。目前，在MS word文档中将字符串“$1mF”的字体颜色更改为绿色，将“$1mA”的字体颜色更改为红色，这让我大吃一惊。开头和结尾是常量，即以$开头，以A或F结尾。目的是以F结尾的字符串表示有利和积极的影响（即绿色），以A结尾的字符串表示不利和消极的影响（即红色），过于粗体。从现在开始，我一直在手动操作。我确实尝试了一些我在这个网站上找到的例子，并对它们进行了一些调整，但仍然没有达到预期的效果

如果您能在这方面迅速提供帮助，我们将不胜感激

这段代码可能会起作用

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 Sub-ChangeColorRedGreen（）选择。查找 .ClearFormatting .MatchWholeWord=True .MatchCase=False .MatchWildcards=True .Replacement.ClearFormatting .执行FindText:=“$*F” .Replacement.Font.Color=wdColorGreen 以 Selection.Find.Execute Replace:=wdReplaceAll 选择。查找 .ClearFormatting .MatchWholeWord=True .MatchCase=False .MatchWildcards=True .Replacement.ClearFormatting .执行FindText:=“$*A” .Replacement.Font.Color=wdColorRed 以 Selection.Find.Execute Replace:=wdReplaceAll 端接头另请阅读：

这里有一个类似的（不完全相同的）情况：

此代码可能会起作用

这里有一个类似的（不完全相同的）例子：

你应该展示你所拥有的，这样人们会更愿意得到你的答案。谢谢你的建议。。在我发布一个问题之前，我会一直关注它。你应该展示你所拥有的，这样人们会更愿意得到你的答案。谢谢你的建议。。在我发布问题之前，我会跟随它前进。