Returns the Phonetics
collection of the range. Read only Phonetics.
This example displays all of the Phonetic objects in the active cell.
Set objPhon = ActiveCell.Phonetics
With objPhon
For Each objPhonItem in objPhon
MsgBox "Phonetic object: " & .Text
Next
End With