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.

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