BackgroundPatternColor Property Example
This example applies turquoise background shading to the first paragraph in the active document.
Set myRange = ActiveDocument.Paragraphs(1).Range
myRange.Shading.BackgroundPatternColor = _
wdColorTurquoise
This example adds a table at the insertion point and then applies light gray background shading to the first cell.
Selection.Collapse Direction:=wdCollapseStart
Set myTable = _
ActiveDocument.Tables.Add(Range:=Selection.Range, _
NumRows:=2, NumColumns:=2)
myTable.Cell(1, 1).Shading.BackgroundPatternColor = _
wdColorGray25