Ecco, per iniziare:
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'
Questo genererà tutte le istruzioni di modifica necessarie per te (taglia, incolla, esegui).
Nota che questo non tiene conto di alcun vincolo.