[Sunil Pradhan]

Trying to write a macro which can convert first line of every cells in first
column of word table. pls help

[Graham Mayor]

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

[Sunil Pradhan]

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

[Suzanne S. Barnhill]

I would suggest that you use separate rows for the headings and apply
different paragraph styles to the heading and body rows.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
http://word.mvps.org

"Sunil Pradhan" wrote in message
...
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

[Graham Mayor]

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

[Sunil Pradhan]

Yes Graham, it did work for me. I have used the exact codes you have posted
& it worked. Apologize for not replying correctly. The first line was a
paragraph completed by enter key.

Thank you again, Sunil Pradhan.

"Graham Mayor" wrote:

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