Skip to Next Table Command?

[Shmuel Wolfson]

An HTML attachment was scrubbed...
URL: <http://lists.frameusers.com/pipermail/framers-frameusers.com/attachments/20130428/b4ce21cc/attachment.htm>
-------------- next part --------------
; This script finds the next table and goes to the first cell.
; Find "Any Table" before running this script.

Opt("WinTitleMatchMode", 2)
Dim $answer

While 1 
   WinActivate(".fm")
   WinWaitActive(".fm")
   Send("^+f") ; CTRL+SHIFT+f = find next
   Sleep(400) ; pause 400 millseconds
   Send("{ESC}tmt")
   $answer = MsgBox(262145, "", "Next table?")
   If $answer = 2 Then Exit 
WEnd