Phonetics Property Example
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