What would be the easiest way to change the text colour in the 3 row down using the Sub Format rows?
I've tried the code below, but can't seem to get it to work.
Sub FormatRows(oTbl As Table, x As Long, Hght As Single)
With oTbl
With .Rows(x)
.Height = CentimetersToPoints(Hght)
.HeightRule = wdRowHeightExactly
.Range.Style = "No spacing"
.Cells.VerticalAlignment = wdCellAlignVerticalCenter
End With
End With
With .Rows(x + 1)
.Height = CentimetersToPoints(0.5)
.HeightRule = wdRowHeightExactly
.Range.Style = "Caption"
.Range.Font.Size = 8
End With
With .Rows(x + 2)
.Height = CentimetersToPoints(0.5)
.HeightRule = wdRowHeightExactly
.Range.Style = "No spacing"
.Range.Font.Size = 12
.Range.Font.ColorIndex = wdDarkRed
End With
End With
End Sub