View Single Post
 
Old 04-23-2024, 12:45 AM
anmalogo anmalogo is offline Windows 11 Office 2021
Novice
 
Join Date: Apr 2024
Posts: 8
anmalogo is on a distinguished road
Default Vertically center a test in the selected cell

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.
Reply With Quote