Vertically center a test in the selected cell

[anmalogo]

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.

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]

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

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]

Originally Posted by vivka

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

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]

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]

It is working great.

Thanks, gmaxey!.