Vertically center a test in the selected cell

anmalogo · #1 04-23-2024, 12:45 AM

Hello all,

I have a Word VBA that basically change the font and the size of the text which in the the cells of a word table selected.

HTML Code:

Sub Macro4()
'ShortCut Ctrl + Shift + I
' Check if any text is selected
If Selection.Type = wdSelectionIP Then
    MsgBox "No text selected!", vbExclamation
    Exit Sub
End If
    
' Change font to Segoe UI, size 8, and color green
    With Selection.Font
        .Name = "Segoe UI"
        .Size = 8
        .Color = RGB(0, 0,0) ' Black color
    End With
End Sub

The problem is that I would like to also vertically center the text which in the cell, but since the Word file has many tables, I don't know how to select it.

I think I'm better codding Excel VBA, but to be honest, Word VBA give me headaches

. I would really appreciate your help.

Thanks.

vivka · #2 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 · #3 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.

gmaxey · #4 04-23-2024, 05:03 AM

Code:

Sub Format_Tables()
  With Selection
    .Font.Name = "Segoe UI"
    .Font.Color = RGB(0, 0, 0) 'Black color
    .Font.Size = 8
    .Cells.VerticalAlignment = wdCellAlignVerticalCenter
  End With
End Sub

anmalogo · #5 04-24-2024, 01:31 AM

It is working great.

Thanks, gmaxey!.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

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