'===================================================================== '  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 = "
[TOP]
" & 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 = ""