...
| Code Block | ||
|---|---|---|
| ||
Sub Main
Set objHTML = CreateObject("htmlfile")
txt = objHTML.ParentWindow.ClipboardData.GetData("text")
txt = replace(txt, chr(13)+chr(10), chr(10))
xsh.Screen.Send chr(27)
xsh.Screen.Send ":set paste"+vbCr
xsh.Screen.Send "a"
xsh.Screen.Send txt
xsh.Screen.Send chr(27)
xsh.Screen.Send ":set nopaste"+vbCr
xsh.Screen.Send "a"
End Sub |
이 스크립트 파일을 '도구 → 옵션'의 '키보드와 마우스' 내 '키 매핑'에서 원하는 키에 등록하여 사용할 수 있습니다.
