2バイトの文字を判別したい 　 　　 要VBA TOP＞Excel/Word/PowerPoint ○ポイントはLenB関数 2バイト文字だけを文書の中から探す場合、任意の文字や空白に絞って探すことはできますが、その全部の2バイト文字を検索する機能はありません。 そこで、マクロで1文字ずつ判別する方法を紹介します。 (1) VBEを起動 (2) VBEを開いてプロジェクトエクスプローラ（図1）から編集中の文書を右クリック[挿入(N)]＞[標準モジュール(M)]。 （図1）WORD VBEプロジェクトエクスプローラ (3) (2)で作った標準モジュールにマクロ作成。コード例は下記 Sub BYTE2_FIND() Dim myText As String Dim i As Integer For i = 1 To ActiveDocument.Characters.Count myText = Selection.Text If LenMbcs(myText) > 1 Then 　Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend If MsgBox("2バイト文字が見つかりました。続けますか?", vbYesNo) = vbNo Then Exit Sub End If End If Selection.MoveRight Next i End Sub ' Function LenMbcs(ByVal str As String) '2バイト判別Function 　LenMbcs = LenB(StrConv(str, vbFromUnicode)) End Function (4) VBEを閉じてファイルを保存終了 ○こんな時に使える ・外国特殊フォントを見つけ出したい ・半角文字を見つけだしたい ○応用またはその他の方法 ・特定の書式を一括して【 】で括りたい ○サンプル ・ サンプルファイルはこちら（要解凍） 11KB ○注意 ページ数が多い（文字数が多い）場合は、処理時間が長くなるので、分割実行するなどの対策が必要です。 Mac用Officeでは使えません。