hasSharedBorders 属性

返回 Boolean 类型的值，该值确定文档中的元素是否互相共享边框。如果为 True，则两个元素共享同一个边框。如果为 False，则当前文档内没有元素共享边框。只读。

expression  必选。返回 DispFPHTMLDocument 的表达式。

示例

下列示例显示给用户的消息，表明文档中的元素是否共享公用边框。

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