返回 Boolean 类型的值,该值确定文档中的元素是否互相共享边框。如果为 True,则两个元素共享同一个边框。如果为 False,则当前文档内没有元素共享边框。只读。
expression.hasSharedBorders
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