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

Click to view Terms of Use page

Click to view Disclaimer page