script.ahk

; Excelの複数行の結合セルに貼り付ける
!+v::
  Critical
  SetKeyDelay, 0
  Loop, parse, clipboard, `n, `r
  {
    line := StrReplace(A_LoopField, "`t")
    Send {F2}%line%{Enter}
  }
  Return

;;
;; 選択文字を「"」「'」「()」で囲む処理
;;

F13 & ':: Enclose("'", "'")
F13 & ":: Enclose("""", """")
F13 & (:: Enclose("(", ")")
F13 & ):: Enclose("(", ")")

Enclose(begin, end) {
  oldClipboard = %Clipboard%
  Clipboard =
  Send, ^c
  ClipWait
  If (!ErrorLevel) {
    StringRight, LastChar, Clipboard, 1
    If (LastChar != "`n") {
      WinGetTitle, CurrentWinTitle
      Clipboard = %begin%%Clipboard%%end%
      ClipWait
      WinActivate, %CurrentWinTitle%
      Send, ^v
      Sleep 150
    }
    Clipboard = %oldClipboard%
  }
  Return
}