2バイト文字を検出するマクロってありませんか？

質問

会社で海外用のWORD文書を作るのですが、
2バイト文字は使わないようにするのが一般的ですよね。
でも2バイト文字チェックマクロで、以前から持っていたマクロでは引っかかり、新しく配布された方では引っかからない文字があって、
どちらが正解なのか判断に困りました。

TimesNewRoman の特殊文字「×」は、2バイトみたいですね。
主にTimesNewRomanとSymbolフォントを使うのですが、
両方とも英語フォントだから2バイト文字は通常ない気がするのに、
あるものなんですね？

その文字が2バイトなのか、1バイトなのか、
すぐにわかる方法ありませんか？
また、WORDの文書で使うマクロ、どこかで配布されてませんか？

回答No.1

TTak · ベストアンサー

次のマクロ"BYTE2_FIND"で試してみてください。
なお、Macでは使用できません。

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
　MsgBox "2バイト文字です"
End If
Selection.MoveRight
Next i
End Sub

Function LenMbcs(ByVal str As String)
　LenMbcs = LenB(StrConv(str, vbFromUnicode))
End Function

補足

やってみました！

2バイト文字は検索できますが、
すいません、2バイト文字がなくなるまで
検索し続けます(・_・;)

止められるマクロにできませんか？？？

すいません！！！

回答No.2

TTak

これは失礼(^^;)

MsgBox "2バイト文字です"

の一行を

If MsgBox("2バイト文字が見つかりました。続けますか?", vbYesNo) = vbNo Then Exit Sub

に差し替えてください。

お礼

できました～っっ！！

止められました！
最初、試しに和文でマクロを実行したら、
数十ページ、検索しそうになったので、
タスクマネージャーで強制終了させました(・_・;)

これなら大丈夫です。
使わせていただきます。
ありがとうございました！