Текст построчно

CoordMode, Mouse
MaxSigns = 20  ; заменить на нужное

F11::
i := n := PrevEndPos := 1

SendInput, ^{vk43}   ; Ctrl + C
StringReplace, Clipboard, Clipboard, `r,, 1
Length := StrLen(Clipboard)
Loop, parse, ClipBoard
{
   if (A_Index = Length)
      EndPos := A_Index + 1
   if (A_LoopField = " " || A_LoopField = "`n")
      EndPos := A_Index
   if (A_Index = Length || A_LoopField = "`n" || i = MaxSigns + 1)
   {
      if !EndPos
         EndPos := A_Index + 1, Modifier = 1
      String%n% := SubStr(ClipBoard, PrevEndPos, EndPos - PrevEndPos)
      if Modifier
         PrevEndPos := EndPos, Modifier := ""
      Else
         PrevEndPos := EndPos + 1
      i := A_Index - EndPos, n++, EndPos := ""
   }
   i++
}
; для демонстрации, можно удалить 2 строчки
Loop % n - 1
   MsgBox, % "String" A_Index " = |" String%A_Index% "|"

WinWait, Adobe Premiere Pro
MouseMove, 100, A_ScreenHeight
ControlClick, class UIF::HotTimecodeControl5
SendInput, ^{vk43} ; Ctrl + C
Sleep, 100
Out := ClipBoard
ControlClick, class HandlerTimeline::TimelineButtonArea1
SendInput, {vk51} ; q
MouseMove, 100, A_ScreenHeight
ControlClick, class UIF::HotTimecodeControl5
SendInput, ^{vk43} ; Ctrl + C
Sleep, 100
In := ClipBoard

Loop, parse, Out, :
{
   if A_Index = 1
      Frames := A_LoopField*60*60*25
   else if A_Index = 2
      Frames += A_LoopField*60*25
   else if A_Index = 3
      Frames += A_LoopField*25
   Else
      Frames += A_LoopField
}
Loop, parse, In, :
{
   if A_Index = 1
      Frames -= A_LoopField*60*60*25
   else if A_Index = 2
      Frames -= A_LoopField*60*25
   else if A_Index = 3
      Frames -= A_LoopField*25
   Else
      Frames -= A_LoopField
}

SendInput, ^1
WinWait, Preferences ahk_class #32770
ControlSetText, Edit5, %Frames%
Sleep 100
SendInput, {Enter}
Sleep, 200

Loop % n - 1
{
   WinActivate, Adobe Premiere Pro
   SendInput, ^t{Enter} ; Ctrl + t + Enter
   Sleep, 200
   Clipboard := String%A_Index%
   SendInput, ^{vk56}  ; Ctrl + V
}