AttachedToText Property

expression.AttachedToText

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

Example

This example duplicates the font formatting; then it checks to see if the duplicated formatting is attached to a text range and if it is not, it attaches the formatting to the second shape.

Sub DuplicateText()
    Dim fntTemp As Font
    With ActiveDocument.Pages(1)
        Set fntTemp = .Shapes(1).TextFrame.TextRange.Font.Duplicate
        If fntTemp.AttachedToText <> True Then _
            ActiveDocument.Pages(1).Shapes(2) _
            .TextFrame.TextRange.Font = fntTemp
    End With
End Sub