PhoneticGuide Property

Microsoft Publisher Visual Basic

expression.PhoneticGuide

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

This example adds phonetic text to the selection and displays the text to which the phonetic text applies, which is the originally selected text. This example assumes text is selected. If no text is selected, the message box will be blank.

Sub AddPhoneticText()
    With Selection.TextRange.Fields.AddPhoneticGuide _
            (Range:=Selection.TextRange, Text:="ver-E nIs")
        MsgBox "The base text is " & .PhoneticGuide.BaseText
    End With
End Sub