'emcc.vbee:実文字数カウントマクロ(for EmEditor Pro.)
'半角・全角スペース、タブ、改行を除く文字数をカウント
'Ver1.0 2006/06/04 Kurebi
document.selection.selectall
txt = document.selection.text
document.selection.collapse
b = 0
c = 0
for i = 1 to len(txt)
    c1 = mid(txt,i,1)
    select case c1
    case " ","　",vbtab,vbcr,vblf
    case else
        if asc(t) >= 0 and asc(t) <= &hff then
            b = b + 1
        else
            b = b + 2
        end if
        c = c + 1
    end select
next
set ws = wscript.createobject("wscript.shell")
n = ws.popup(b & "バイト (" & c & "文字)",0,"実文字数カウント",64)

EmEditor Professionalで動作する実文字数カウント用マクロです。

1. 点線の中身を適当なファイル名（例：emcc.vbee）で保存します。
2. EmEditorにてマクロ登録してください。
3. カウントしたいテキストを表示してマクロを実行すると、実文字のバイト数と文字数が表示されます。

• 表示されるバイト数は実文字の総バイト数（半角1バイト、全角2バイト）で、文字数は半角・全角を問わない全文字数です。
• 動作確認はWindows XP Professional Edition+EmEditor Professional Ver5.00.1で行いました。