Column[Text /@ WordData["red", "Definitions", "List"], ItemSize -> {30, Automatic}, Frame -> All, Spacings -> 2, Background -> LightYellow]