(サクラエディタ)(マクロ)(改行単位で行の二重化)

　自分用のメモです
行の二重化が 折り返し単位でしかなかったので
改行単位で行の二重化をするマクロを書きました
範囲指定をしているので 若干ちらつくことがありますが
まぁ 折り返しを気にせずに二重化出来るにこした事は無いかなと・・・

Option Explicit
Call main
Sub main()
	Dim SelFrom, buf
	Call Editor.SelectLine(0)
	SelFrom = Editor.GetSelectLineFrom()
	buf = Editor.GetSelectedString
	buf = buf + buf
	Call Editor.InsText(buf)
	Call Editor.Jump(SelFrom, 0)
	Call Editor.ReDraw(0)
End sub