HTMLタグ入力支援

 HTMLタグの入力を助けるためのマクロです。

【使用法】
 タグ(スペース)文字列 を選択状態にして、このマクロを実行すると、 <タグ>文字列</タグ>となります。
 コメント化したい場合は、 タグ の部分に 、びっくりマーク(つまり、"!")を入れます。


【使用例】
《マクロ実行前》

   
《マクロ実行後》



 これはこれで操作に慣れが必要ですが、このマクロをキー割り当てしておけ ば、HTML編集時のタグ入力が多少効率的になります。(「大幅に」というわけ ではありませんが・・・)
'//////////////////////////////////////////////////////////////////// '// '// HTMLタグ入力支援マクロ '// '//////////////////////////////////////////////////////////////////// Option Explicit Dim myStr, myTag, HedStr, EndStr Dim myArray myStr = Editor.GetSelectedString(0) '//選択文字列を取得 myArray = Split(myStr) '//タグの部分を取得 myTag = myArray(0) '//選択文字列のタグをのぞいた部分を取得 myStr = Right(myStr, Len(myStr)-Len(myTag)-1) If myTag ="!" Then '//コメント化の場合 HedStr = "<!--" EndStr= "-->" Else '//コメント以外のタグの場合 HedStr = "<" & myTag & ">" EndStr = "</" & myTag & ">" End If '// 前後にタグを追加 myStr = HedStr & myStr & EndStr Editor.InsText(myStr) '//挿入
「その他のコーナー」に戻る