Ici, pour commencer :
Select 'Alter Table [' + TABLE_SCHEMA + '].[' + TABLE_NAME + '] Alter Column [' + COLUMN_NAME + '] VarChar(' + CAST(CHARACTER_MAXIMUM_LENGTH As VARCHAR) + ')'
From INFORMATION_SCHEMA.COLUMNS
WHERE DATA_TYPE = 'NVARCHAR'
Cela générera pour vous toutes les instructions alter nécessaires (couper, coller, exécuter).
Notez que cela ne tient compte d'aucune contrainte.