This example displays the linked status of a custom document property. For the example to work, dp
must be a valid DocumentProperty object.
Sub DisplayLinkStatus(dp As DocumentProperty)
Dim stat As String, tf As String
If dp.LinkToContent Then
tf = ""
Else
tf = "not "
End If
stat = "This property is " & tf & "linked"
If dp.LinkToContent Then
stat = stat + Chr(13) & "The link source is " & dp.LinkSource
End If
MsgBox stat
End Sub