Dim objHTML
Set objHTML = CreateObject("htmlfile")
MsgBox(Len(Trim(objHTML.ParentWindow.ClipboardData.GetData("text"))))
Set objHTML = Nothing
上記をメモ帳に貼り付けて拡張子をtxtからvbsへ変更
あいうえお
上記をコピーして拡張子を変更したファイルをダブルクリック
5と出ればOK
Dim objHTML
Set objHTML = CreateObject("htmlfile")
MsgBox(Len(Trim(objHTML.ParentWindow.ClipboardData.GetData("text"))))
Set objHTML = Nothing
上記をメモ帳に貼り付けて拡張子をtxtからvbsへ変更
あいうえお
上記をコピーして拡張子を変更したファイルをダブルクリック
5と出ればOK