You didn't answer my question 'What do you mean by 'first line'.
If the first line ends with a paragraph mark i.e. enter was pressed, then
the first line is paragraph(1) of the range, so
Dim oRng As Range
With ActiveDocument.Tables(1)
For i = 1 To .Rows.Count
Set oRng = .Rows(i).Cells(1).Range
'orng is the content of the first cell of the row
oRng.End = oRng.End - 1 'exclude the cell end marker
With oRng.Paragraphs(1).Range 'work with the first paragraph
'and apply formatting to it
.Font.name = "Arial"
.Font.Size = "14"
.Font.Bold = True
End With
Next i
However if the line is wrapped naturally by the confines of the cell, it
becomes altogether more complicated, for if you apply formatting to what was
the first line, the formatting will almost certainly affect the text flow,
thus some of the first line will now wrap to the second or the line will be
shortened and some of what was the second line will move up to the first.
How would you wish to handle that?
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>