Apply changes to all cells in a table
Article contributed by Bill Coan
Drill down to the cells in the table's range, as follows, and set the various properties as desired:
For Each oCell In oTable.Range.Cells
oCell.Width = InchesToPoints(1)
oCell.Shading.BackgroundPatternColorIndex = wdBlue
oCell.Range.Font.Name = "Arial"
oCell.Range.Font.Size = 20
Next oCell