'===================================================================== ' HTMLタグの簡易入力 ' TjSoft-67 2007.12.23 Taiju ' 【内容】HTMLタグの入力補助スクリプト。 ' 【使い方】入出力に「真魚」エディタのプロパティをいくつか ' 使っているので、このエディタから使う。 '===================================================================== iMenu = Int( InputBox(" 1 Topへ 2 〔ママ〕" & _ vbCr & vbCr & " 3 原注 4 ノート" & _ vbCr & vbCr & " 5 HTML 6 コード" & _ vbCr & vbCr & " 7 スタイル 8 JavaScript" & vbCr, "簡易入力メニュー") ) Select Case iMenu Case 1 sName = InputBox("Name ?", "アンカーの名称を入力") str = "
" & vbCr Case 2 str = "(*ママ)" Case 3 str = "〔〕" Case 4 str = "(*)" Case 5 str = "" & vbCr & "" & vbCr & vbCr & "" & vbCr Case 6 iCode = Int( InputBox(" 1 Shift-JIS 2 JIS" & _ vbCr & vbCr & " 3 EUC 4 Unicode" & _ vbCr & vbCr & " (Unicodeの場合、UTF-8Nで保存。)", "文字コードの選択") ) Select Case iCode Case 1 sCode = "Shift_JIS" Case 2 sCode = "ISO-2022-JP" Case 3 sCode = "EUC-JP" Case 4 sCode = "UTF-8" End Select str = "" & vbCr Case 7 str = "" & vbCr & "" & vbCr Case 8 str = "" & vbCr & "" & vbCr Case Else MsgBox("該当メニューなし") End Select str = Editor.SetSelText(str) If iMenu = 3 Or iMenu = 4 Then iCaretPos = Editor.GetSelStart - 8 iCaretPos = Editor.SetSelStart(iCaretPos) ElseIf iMenu = 7 Then iCaretPos = Editor.GetSelStart - 13 iCaretPos = Editor.SetSelStart(iCaretPos) ElseIf iMenu = 8 Then iCaretPos = Editor.GetSelStart - 19 iCaretPos = Editor.SetSelStart(iCaretPos) End If str = ""