如何在Word文档中将冒号后的第一个字母大写？

Sub CapitalizeWordAfterColon()

    Application.ScreenUpdating = False

    Selection.HomeKey wdStory

    With Selection.Find

        .ClearFormatting

        .Text = ": ([a-z])"

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchWholeWord = False

        .MatchSoundsLike = False

        .MatchCase = False

        .MatchWildcards = True

        .MatchAllWordForms = False

        With .Replacement.Font

          .AllCaps = True

          .SmallCaps = False

        End With

    End With

    Selection.Find.Execute Replace:=wdReplaceAll

    Application.ScreenUpdating = True

End Sub