Office中国论坛/Access中国论坛

标题: [求助]为何下面判断WORD文档中有无边框或底纹的代码会出现误报？ [打印本页]

作者: ssq1109 时间: 2007-6-7 04:43
标题: [求助]为何下面判断WORD文档中有无边框或底纹的代码会出现误报？
下面的代码是为了判断一WORD文档中有无边框或底纹的，对短文档运行结果正确,但使用中发现，对于长一点的文档程序总是误报，即明明文档无字符边框，它返回说"文档中有字符边框"，即使在WORD读入一文本文件也是这样，但从代码看好像没有错误。
这个问题困扰我较长时间了，请高手指点。

Sub Test5()
Dim myFont As Font, myParFormat As ParagraphFormat
'仅字符
Set myFont = ActiveDocument.Content.Font
      '判断是否有字符边框
      If myFont.Borders.OutsideLineStyle > 0 Then
         MsgBox "文档中有字符边框"
      '判断是否有字符底纹
      ElseIf myFont.Shading.Texture <> wdTextureNone Then
         MsgBox "文档中有字符底纹"
      End If
'段落格式
Set myParFormat = ActiveDocument.Content.ParagraphFormat
      '判断是否有段落边框
      If myParFormat.Borders.OutsideLineStyle > 0 Then
         MsgBox "文档中有段落边框"
      '判断是否有段落底纹
      ElseIf myParFormat.Shading.Texture <> wdTextureNone Then
         MsgBox "文档中有段落底纹"
      End If
End Sub

作者: 小菜 时间: 2010-7-21 13:33
代码格式错乱，看着太费劲了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)