Apply character styles to misspelled words

[Ribnog]

Hi.

I need a script that apply character styles in all red squiggly lines misspelled words over the document.

And if is possible extract these words to a new Indesign document.

Thank you in advance!