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