Unicode文字検出マクロ

概要 　Unicode の文字、機種依存文字を検出してハイライトする。
使用方法 　マクロを実行すると、文書中に含まれるUnicode文字や機種依存文字を検出し異なる色でハイライトする。
作成日 　??
更新日 　??
作成者 　??
[Source Code]
Sub UnicodeFinder()

'//JIS X0208外の文字をチェックして、背景色を設定する。
'//ただしJIS X0208にある文字だが、U+301C 波ダッシュも、背景色が付いてしまう。

Dim r As Range
Dim strMoji As String
Dim lngMojiCd As Long

Application.ScreenUpdating = False

For Each r In ActiveDocument.Characters
strMoji = r.Text
'//Unicodeチェック
If StrConv(StrConv(strMoji, vbFromUnicode), vbUnicode) <> strMoji Then
r.HighlightColorIndex = wdYellow
Else
'//NEC特殊文字、IBM拡張文字チェック
lngMojiCd = Asc(strMoji)
If lngMojiCd > 0 Then
'//Nop 半角文字
ElseIf lngMojiCd > -5468 Then '//熙
r.HighlightColorIndex = wdBrightGreen
Else
If lngMojiCd >= -30912 And lngMojiCd <= -30820 Then '//① ∪(NEC特殊文字の「∪」)
r.HighlightColorIndex = wdBrightGreen
ElseIf lngMojiCd = -32416 Then '//全角チルダ
r.HighlightColorIndex = wdPink
End If
End If
End If
Next r

Application.ScreenUpdating = True

End Sub
Share
Share
Share