Take all underlined words, put in Excel column
In the Word document


Click on an underlined word
In the Home menu, in the Editing  section, click Select > Select Text with Similar Formatting
Copy
Open Excel and paste


You may need to clean it up in Excel, but you don't need VBA to do this.