Aquí, para empezar:
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'
Esto generará todas las instrucciones de modificación necesarias para usted (cortar, pegar, ejecutar).
Tenga en cuenta que esto no tiene en cuenta ninguna restricción.