In diesem Beispiel werden alle Phonetic-Objekte in der aktiven Zelle angezeigt.
Set objPhon = ActiveCell.Phonetics With objPhon For Each objPhonItem in objPhon MsgBox "Phonetic object: " & .Text Next End With