如何使用VBA宏为MS Word中的字体添加渐变

Sub AddGradientFont()
    Dim rng As Range
    Set rng = Selection.Range '选择要应用渐变字体的文本范围
    
    '创建一个新的渐变字体效果
    Dim gradient As Font
    Set gradient = rng.Font.Duplicate
    gradient.Fill.Gradient.Enabled = msoTrue
    gradient.Fill.Gradient.ColorStops.Add(0).Color.RGB = RGB(255, 0, 0) '起始颜色
    gradient.Fill.Gradient.ColorStops.Add(1).Color.RGB = RGB(0, 0, 255) '结束颜色
    
    '将渐变字体应用到选定的文本范围
    rng.Font.Name = gradient.Name
    rng.Font.Size = gradient.Size
    rng.Font.Color = gradient.Color
    rng.Font.Fill.Gradient.Type = gradient.Fill.Gradient.Type
    rng.Font.Fill.Gradient.Angle = gradient.Fill.Gradient.Angle
    rng.Font.Fill.Gradient.ColorStops.Clear
    For Each stop In gradient.Fill.Gradient.ColorStops
        rng.Font.Fill.Gradient.ColorStops.Add(stop.Position).Color.RGB = stop.Color.RGB
    Next stop
End Sub