Ms word 如何为word文档中的所有数字着色？

我试图使一个文本更容易学习，所以我寻找颜色的具体信息，而不必找到每个信息和格式化它。可能吗？

这可能有助于：

Sub Changenumbercolour()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Color = wdColorRed
With Selection.Find
    .Text = "([0-9])"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

---

当您说：“……不必查找每个[sic]信息并对其进行格式化。”您的意思是不想在MS Word中使用“查找”功能，还是不想手动搜索信息？如果你是指后者，那么你可以使用高级查找功能。嗯，我有大约30年的历史项目要学习。所以为了更容易地学习，我想给这些年涂上颜色。上面发生了什么，这就是答案。