NameFarEast Property
Returns or sets the Asian font name. Read/write String.
Remarks
Use the Replace method to change the font that’s applied to all text and that appears in the Font box on the Formatting toolbar.
Example
This example displays the name of the Asian font applied to the selection.
MsgBox ActiveWindow.Selection.ShapeRange _
.TextFrame.TextRange.Font.NameFarEast