This example displays what type of Japanese text the current selection contains.
Select Case Selection.Range.Kana
Case wdKanaHiragana
MsgBox "This text is hiragana."
Case wdKanaKatakana
MsgBox "This text is katakana."
Case wdUndefined
MsgBox "This text is neither solely " _
& "hiragana nor katakana."
End Select