vba设置word中的颜色为渐变填充灰色

要在VBA中设置Word文档中的颜色为渐变填充灰色，可以使用以下代码：

Sub SetGradientFillGreyColor()
    Dim doc As Document
    Dim shape As Shape
    
    ' 获取当前活动的Word文档
    Set doc = ActiveDocument
    
    ' 创建一个新的形状（矩形）
    Set shape = doc.Shapes.AddShape(msoShapeRectangle, 100, 100, 200, 100)
    
    ' 设置形状的渐变填充效果
    shape.Fill.GradientStyle = msoGradientHorizontal
    shape.Fill.GradientStops.Clear
    
    ' 设置渐变填充的颜色
    shape.Fill.GradientStops.Add(0).Color.RGB = RGB(128, 128, 128) ' 起始颜色：灰色
    shape.Fill.GradientStops.Add(1).Color.RGB = RGB(255, 255, 255) ' 终止颜色：白色
    
    ' 显示形状
    shape.Fill.Visible = msoTrue
    
    ' 清除选中状态
    shape.Select (False)
    
    ' 清除对象的引用
    Set shape = Nothing
    Set doc = Nothing
End Sub

这段代码会在Word文档中创建一个矩形形状，并将其填充为从灰色到白色的渐变色。你可以根据需要调整位置和大小等参数。