PhoneticCharacters Property Example
This example replaces the fourth character from the beginning of the text in the active cell with Furigana characters.
ActiveCell.Characters(1,3).PhoneticCharacters = ""