AutoHotkey Community

Start: ; label at the beginning of the script used for the "Goto" command later on.
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.


FileSelectFile, casenum, 1,,Please choose a text file to read from;, *.txt ; Opens file select dialog box for user to choose file to read from. Places chosen file details into variable named "casenum".

If ErrorLevel = 1 ; Check to see if dialog box was cancelled, rather than a file being chosen.
{   Msgbox, 5,You must choose a file to continue. ; If no file was chosen, show message box offering a retry or cancel option.
   IfMsgBox Retry
          Goto Start ; Restart at beginning of script if user clicked on "retry".
   else
          MsgBox,,This will stop the script! ; Show message if user clicked "cancel" and exit.
   ExitApp
}


;Opens Internet Explorer

WinMaximize, winword
sleep, 2000
f1::
;starts loop
Loop
{
   FileReadLine, line, %casenum%, %A_Index%
          if ErrorLevel
           break
   



;Sends the input from the text file selected earlier
SendInput %line%
Send,{enter}
}
return

f2::

lineno++ ; Increment the line number to read variable by 1, so the script reads the next line in the next pass of the loop.

return

;! AutoHotkey_L
FileSelectFile File ; Yes I am that lazy.
f := FileOpen(File, "r `n")

F1::
Loop
   If (line := f.ReadLine()){
      If (text := RTrim(line, "`n")){
           Send % text . "{enter}"
           return
      }
      continue
   }
   else break
MsgBox "Done reading file!"

Send % text . "{enter}"

Send % "{home}{del 20}" . text . "{enter}"

Send {home}{del 20}%text%{enter}