サクラエディタでMarkdownを書きたい人へ
サクラのマクロ(vbs)で、画像をペーストできるマクロです。
Qiitaは普通にコピペで画像が貼れる、サクラエディタでもやりたい！ってことで作ってみました
ペーストの代わりにマクロ
サクラエディタの、ファイルダイアログの初期位置をカレントディレクトリにしていれば
編集中のファイルと同階層に画像を置きます。
命名はyyyy_MM_dd_HHmmss.png
また、編集中のファイルに![./ファイル名_yyyy_MM_dd_HHmmss.png]の文字を挿入します
Chromeの拡張とかで見ればきれいにマークダウンできてるはず！
macro.vbs
Dim objFSO
Dim exec_script
Dim filename
Set objFSO = CreateObject("Scripting.FilesystemObject")
fileName = objFSO.GetBaseName(GetFilename()) & "_"
filename = filename & Year(Now()) & "_"
filename = filename & Right("0" & Month(Now()) , 2) & "_"
filename = filename & Right("0" & Day(Now()) , 2) & "_"
filename = filename & Right("0" & Hour(Now()) , 2)
filename = filename & Right("0" & Minute(Now()) , 2)
filename = filename & Right("0" & Second(Now()) , 2)
exec_script = "powershell.exe -sta -WindowStyle Hidden -Command Add-Type -Assembly System.Windows.Forms;" _
& " if (!([Windows.Forms.Clipboard]::ContainsImage())) {exit} ;" _
& " [System.Windows.Forms.Clipboard]::GetImage().Save('./" & filename & ".png');" _
& " Echo '![./" & filename & ".png](./" & filename & ".png)'"
Set exec = CreateObject("WScript.Shell").Exec(exec_script)
Editor.InsText(exec.StdOut.ReadAll)