The Word object represents a word in the search results. Use WordList property of Tab object to get reference to the words collection.
Set FSO = CreateObject("Scripting.FileSystemObject") Set Output = FSO.CreateTextFile("c:\output.txt", True) For Each Word in App.ActiveTab.WordList Output.WriteLine Word.Name & " - " & Word.Count Next