
MsgBox "Put the insertion point in a table" Shading.ForegroundPatternColor = foreColor Shading.BackgroundPatternColor = backColor Cell(1, 1).Shading.ForegroundPatternColor Cell(1, 1).Shading.BackgroundPatternColorįoreColor =. If Selection.Information(wdWithInTable) ThenīackColor =. If you need to do this quite a bit with a number of tables or in a number of documents, you may want to consider using a macro to do the shading. The shading is repeated on the selected cells.

Your desired color is applied to the selected rows.Īfter you apply the desired color, if you want to apply it elsewhere (perhaps in another table or in some cells you missed), all you need to do is select the cells and press F4.

April wonders if there is a way to copy the fill color from one row to another. She was hoping to use the Format Painter, but that just copies the text format, not the fill color used in the table cells. April now wants to copy that fill color to other rows. One row is formatted with a custom color fill to match the company's logo color.
