Recopilar email, en un texto plano, word, excel

Tengo una cierta cantidad de texto plano, dentro de este texto tengo unos 30 email, me gustaría correr una macro ya sea en word, o excel, y que me extraiga los email del texto, y lo ponga en otra hoja.