Private Sub TextFrame_Example()
' This example returns the current setting of TextFrameDisplay.
Dim TextDisp As Boolean
TextDisp = ThisDocument.Preferences.TextFrameDisplay
MsgBox "The TextFrameDisplay property is: " & TextDisp
End Sub