All you need to do is make sure you place the insertion point somewhere within the table before running it. The macro shades an entire table based on the shading used in the first cell of the first row of the table. MsgBox "Put the insertion point in a table" Shading.ForegroundPatternColor = foreColor Shading.BackgroundPatternColor = backColor Cell(1, 1).Shading.ForegroundPatternColor These may be a bit strong when applied to fill areas. Cell(1, 1).Shading.BackgroundPatternColorįoreColor =. fillbetween uses the colors of the color cycle as the fill color. 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.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |