The first text in the VBA view needs to be this ...
Code:
Private Type CountriesFoundInDoc
Name As String
Location As Long
End Type
By the way, this only pastes the text to the top of the current document. You can adjust to make it add to the new document, but that may take some work. Actually, it was a bit of work to get the info itself.
Good luck.