ignoreSharedBorders 属性

返回或设置一个 Boolean，用来确定是否忽略多个组件的共享组件边框。可读写。

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

示例

在下面的示例中，如果当前文档中存在共享边框，则将 ignoreSharedBorders 属性设置为 True。如果不存在，则将 ignoreSharedBorders 属性设置为 False。以后任何带有共享边框的组件都不被忽略。

Sub IgnoreBorders()
'Ignores shared borders in document if they exist

    Dim objApp As FrontPage.Application
    'If document has shared borders, ignore them
    If objApp.ActiveDocument.hasSharedBorders = True Then
       objApp.ActiveDocument.ignoreSharedBorders = True
    Else
    'Don't ignore shared borders until they occur
    If objApp.ActiveDocument.hasSharedBorders = False Then
       objApp.ActiveDocument.ignoreSharedBorders = False
    End If

End Sub