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