Hi All

I have a table that consists of 12- Columns and 65- Rows it is an Excel
sheet that I Copy and Paste Special as Formatted Text (RTF) in to Word -- is
there a macro about that on clicking a new added button to the Toolbar --
that would automatically Vertically Align (Centre) all the Text and Numbers
in their respective cells.

Any help much appreciated

Cheers ---- Mully

On Mon, 26 Sep 2005 07:56:07 -0700, "mully"
wrote:

Hi All

I have a table that consists of 12- Columns and 65- Rows it is an Excel
sheet that I Copy and Paste Special as Formatted Text (RTF) in to Word -- is
there a macro about that on clicking a new added button to the Toolbar --
that would automatically Vertically Align (Centre) all the Text and Numbers
in their respective cells.

Any help much appreciated

Cheers ---- Mully

You don't really need a macro. You can just select the whole table, go
to Table Table Properties Cell, and click the Center button under
"Vertical Alignment".

If you really, really want a macro on a one-click button, use this:

Sub TableVertCenter()
If Selection.Information(wdWithInTable) Then
Selection.Tables(1).Range.Cells.VerticalAlignment _
= wdCellAlignVerticalCenter
End If
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

And if, like me, you've added "Vertical alignment" to every table-related
shortcut menu, you can do it with a right-click. g

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"Jay Freedman" wrote in message
...
On Mon, 26 Sep 2005 07:56:07 -0700, "mully"
wrote:

Hi All

I have a table that consists of 12- Columns and 65- Rows it is an Excel
sheet that I Copy and Paste Special as Formatted Text (RTF) in to Word --
is
there a macro about that on clicking a new added button to the Toolbar --
that would automatically Vertically Align (Centre) all the Text and
Numbers
in their respective cells.

Any help much appreciated

Cheers ---- Mully

You don't really need a macro. You can just select the whole table, go
to Table Table Properties Cell, and click the Center button under
"Vertical Alignment".

If you really, really want a macro on a one-click button, use this:

Sub TableVertCenter()
If Selection.Information(wdWithInTable) Then
Selection.Tables(1).Range.Cells.VerticalAlignment _
= wdCellAlignVerticalCenter
End If
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org