はてなブログにソースコードを載せる際の一手間を自動化

はてなブログは普段、はてな記法で作成している。理由は、ソースコードを載せる際にシンタックスハイライト（スーパーpre記法）を用いるため。

help.hatenablog.com

具体的には、ソースコードを >|vb| と ||< で挟むだけ。
しかし、これが結構手間だったりする。一度なら大したことは無いが、度重なると忘れることもあって、プレビューで初めて気づく。

そこで、何とかこの作業を簡略化できないかと考えた。

他にも方法はあると思うが、このような手順で行うことにした。

1. ソースコードをコピーする
2. クリップボードの文字列を一旦取得する
3. 先頭に>|vb|を、末尾に||<を追加し、再びクリップボードに戻す
4. はてなブログに貼り付ける

今回は、２と３を行うマクロを作成してみた。なお、マクロの保存先は「個人用マクロ ブック」とし、Ctrl + m をショートカットとして割り当てた。

Sub SetSyntaxHighlight()
' Keyboard Shortcut: Ctrl+m
' Microsoft Forms 2.0 Object Libraryを参照設定済み
    Dim ClipBoad As DataObject
    Set ClipBoad = New DataObject
    
    ClipBoad.GetFromClipboard
    Dim TempString As String
        TempString = ">|vb|" & vbNewLine & _
                   ClipBoad.GetText & vbNewLine & _
                   "||<"
    ClipBoad.SetText TempString
    ClipBoad.PutInClipboard
End Sub

結果は、上記の通り。上記は、同マクロで先頭と末尾に記号を自動追加したものを貼り付けている。

ほんの少しだけ、手間が減りました。

参考まで。