Vertically center a test in the selected cell

vivka · #1 04-23-2024, 02:22 AM

Hi! This will do the job on the selected tables:

Code:

Sub Format_Tables()
'
    For Each tbl In selection.Tables
        With tbl.range
            .Font.name = "Segoe UI"
            .Font.Color = RGB(0, 0, 0) 'Black color
             .Font.Size = 8
            .Cells.VerticalAlignment = wdCellAlignVerticalCenter
         End With
    Next tbl
End Sub

anmalogo · #2 04-23-2024, 03:54 AM

Quote:

Originally Posted by vivka

Hi! This will do the job on the selected tables:

Code:

Sub Format_Tables()
'
    For Each tbl In selection.Tables
        With tbl.range
            .Font.name = "Segoe UI"
            .Font.Color = RGB(0, 0, 0) 'Black color
             .Font.Size = 8
            .Cells.VerticalAlignment = wdCellAlignVerticalCenter
         End With
    Next tbl
End Sub

Hello Vivka,

Thanks for your quick response, but your code is changing the whole table, not just the selected cell of the table

. Do you know how to apply the code just to the selected cells of the table?. My table is quite big.

Thanks.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Vertically center text on a page (was:Printing on 8x 10)	slacy09	Word	4	09-27-2023 05:29 AM
Vertically Center Selected Range in the Useable Window	gmaxey	Word VBA	0	12-19-2020 10:01 AM
How to vertically center text in a line	SPO	Word	4	01-18-2017 02:48 PM
How to Center One Line Vertically on Blank Page	SQLUSA	Word	1	08-29-2012 08:14 PM
How vertically center text with enlarged bullet?	judithvg	PowerPoint	2	05-09-2012 02:18 AM