word文档指定段落设置背景色vba代码

以下是在VBA中指定Word文档中的段落设置背景色的代码示例：

Sub SetParagraphBackgroundColor()
    Dim doc As Document
    Set doc = ActiveDocument
    
    Dim para As Paragraph
    Set para = doc.Paragraphs(1) '指定第1个段落
    
    With para.Range.Shading
        .BackgroundPatternColor = wdColorGray25 '设置背景色为灰色25%
        .Texture = wdTextureNone '设置无纹理
    End With
End Sub

在上面的代码中，我们首先获取当前活动文档对象，并指定要设置背景色的段落（这里指定的是第1个段落）。然后，我们使用段落的`Range.Shading`属性来设置背景色和纹理。在这个示例中，我们将背景色设置为灰色25%并将纹理设置为无。您可以根据需要更改这些值。

请注意，如果您想要更改整个文档的段落背景色，您需要在循环中遍历所有段落，并为每个段落设置背景色。