Kana Property Example

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