set progName1 to "TextEdit"
set progName2 to "Finder"
property progName : ""

repeat 7 times
 if progName is not progName2 then
  set progName to progName2
 else
  set progName to progName1
 end if
 tell application progName to activate
 if progName is progName1 then
  if (count of windows) is greater than 1 then
   tell application "System Events"
    tell application process progName1
     delay 2
     keystroke "<" using command down
     if name of window 1 is "Suchen" then
      keystroke "<" using command down
      keystroke "<" using command down
     end if
     delay 2
    end tell
   end tell
  end if
 end if
 delay 1
end repeat