hasSharedBorders Property

Returns a Boolean that determines if elements within the document share borders with each other. If True, two elements share the same border. If False, no elements within the current document share a border. Read-only.

expression   Required. An expression that returns a DispFPHTMLDocument.

Example

The following example displays a message to the user stating whether or not elements within the document share a common border.

Sub SharedBorders()
'Determines if the current document has shared borders

    Dim objApp As FrontPage.Application
    Dim objDoc As DispFPHTMLDocument

    Set objApp = FrontPage.Application
    Set objDoc = objApp.ActiveDocument
    'Check if document has shared borders
    If objDoc.hasSharedBorders = True Then
        'If yes, display message
        MsgBox "The current document, " & objDoc.nameProp & _
               ", has shared borders."
    Else
        'If no, display message
        MsgBox "The current document, " & objDoc.nameProp & _
               ", does not have shared borders."
    End If
End Sub