'**************************************************** 
'FindAll occurrences of a string in the current file. 
'- if nothing selected, prompt for search string 
'- get full file name 
'- if tabs aren't enabled, enable tabs 
'- open a new file within the window 
'- find all occurrences of string within the file 
'**************************************************** 

if document.selection.IsEmpty then 
   str_SearchString = Prompt("Enter search string","") 
   if str_SearchString = "" then 
      quit 
   end if 
else 
   str_SearchString = document.selection.text 
end if 

str_FileName = document.FullName 

if not editor.EnableTab then 
   editor.EnableTab = True 
end if 
editor.NewFile 

editor.FindInFiles str_SearchString, str_FileName, 0, eeEncodingSystemDefault, ""