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
My web site
www.gmayor.com
Word MVP web site
http://word.mvps.org
Sunil Pradhan wrote:
I want to have first line of each cells in first column of table in
different format (font type, size) etc. each cells have 1st line as
heading and other lines as body. I can send you an sample if i get
your email address. I am trying to write macro in word for the first
time & unable to understand. I am used to in writing macros in excel.
thx
"Graham Mayor" wrote:
What do you mean by 'format'?
What do you mean by 'convert'
What do you mean by 'first line'?
The following macro will locate the content of the first cell of
each row in turn and assign it to a range variable. You can then
process that range to do what you wish.
Dim oRng As Range
With ActiveDocument.Tables(1)
For i = 1 To .Rows.Count
Set oRng = .Rows(i).Cells(1).Range
oRng.End = oRng.End - 1
'orng is the content of the first cell of the row
Next i
End With
--
Graham Mayor - Word MVP
My web site www.gmayor.com
Word MVP web site http://word.mvps.org
Sunil Pradhan wrote:
Trying to write a macro which can convert first line of every cells
in first column of word table. pls help