返回区域的 Phonetics 集合。Phonetics 类型,只读。
本示例显示活动单元格中的所有 Phonetic 对象。
Set objPhon = ActiveCell.Phonetics With objPhon For Each objPhonItem in objPhon MsgBox "Phonetic object: " & .Text Next End With