有一份wps word文档，文档中有汉字和数字的混合文本，请写一个的宏代码，实现如下功能： 1.读取文档中的每个数字，数字只有0到9，共10种 2.给每个数字自定义一种指定的颜色，并应用在该数字上 若数字是“1”，将数字颜色替换为红色，红色 - RGB(255, 0, 0) 若数字是“2”，将数字颜色替换为橙色，橙色 - RGB(255, 165, 0) 若数字是“3”，将数字颜色替换为黄色，黄色 - RGB(255, 255, 0) 若数字是“4”，将数字颜色替换为绿色，绿色 - RGB(0, 255, 0) 若数字是“5”，将数字颜色替换为棕色，棕色 - RGB(139, 69, 19) 若数字是“6”，将数字颜色替换为青色，青色 - RGB(0, 255, 255) 若数字是“7”，将数字颜色替换为蓝色，蓝色 - RGB(0, 0, 255) 若数字是“8”，将数字颜色替换为紫色，紫色 - RGB(128, 0, 128) 若数字是“9”，将数字颜色替换为粉色，粉色 - RGB(255, 192, 203) 若数字是“0”，将数字颜色替换为黑色，黑色 - RGB(0, 0, 0) 3.从文本开头，开始查找第一个数字和第二个数字，全选这两个数字之间的所有字符，并将第二个数字的颜色属性，应用上去。 4.查找第二个数字和第三个数字，，全选这两个数字之间的所有字符，并将第三个数字的颜色属性，应用上去。 5. 因此类推， 根据以上代码和要求，写一个vba代码。

以下是实现以上功能的VBA宏代码：

Sub CustomizeNumbersColor()
    Dim doc As Document
    Dim rng As Range
    Dim num As Variant
    Set doc = ActiveDocument
    Set rng = doc.Content
    For Each num In Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "0")
        rng.Find.ClearFormatting
        rng.Find.Replacement.ClearFormatting
        With rng.Find
            .Text = num
            .Replacement.Text = num
            .Replacement.Font.Color = GetNumberColor(num)
            .Execute Replace:=wdReplaceAll, Forward:=True, Format:=True
        End With
    Next num
    rng.Find.ClearFormatting
    rng.Find.Replacement.ClearFormatting
    With rng.Find
        .Text = "[0-9]{1}"
        .MatchWildcards = True
        Do While .Execute(Forward:=True) = True
            rng.MoveStartUntil Cset:="0123456789"
            rng.MoveEndUntil Cset:="0123456789", Count:=1
            rng.Font.Color = rng.Next(wdCharacter).Font.Color
        Loop
    End With
End Sub

Function GetNumberColor(num As String) As Long
    Select Case num
        Case "1"
            GetNumberColor = RGB(255, 0, 0)
        Case "2"
            GetNumberColor = RGB(255, 165, 0)
        Case "3"
            GetNumberColor = RGB(255, 255, 0)
        Case "4"
            GetNumberColor = RGB(0, 255, 0)
        Case "5"
            GetNumberColor = RGB(139, 69, 19)
        Case "6"
            GetNumberColor = RGB(0, 255, 255)
        Case "7"
            GetNumberColor = RGB(0, 0, 255)
        Case "8"
            GetNumberColor = RGB(128, 0, 128)
        Case "9"
            GetNumberColor = RGB(255, 192, 203)
        Case "0"
            GetNumberColor = RGB(0, 0, 0)
    End Select
End Function

这个宏首先遍历文档中的每个数字，根据数字调用GetNumberColor函数获取颜色值，并将其应用于该数字。然后，使用正则表达式查找数字之间的文本，并将下一个数字的颜色属性应用于它们。最后，宏结束。