UC知道关于Word VBA文本查找的style属性
来源：百度知道 编辑：UC知道 时间：2024/07/03 03:27:44
Sub test()
With Application.Selection.Find
.Style = wdStyleHeading3
If .Style = wdStyleHeading3 Then MsgBox "OK"
End With
End Sub
为什么其中的If判断不成立,没有弹出MsgBox？想不通。望高人指点。
虽然wdStyleHeading3是个常量（-4），但赋值后，Selection.Find.Style却是一个样式名称的字符串（例如“标题 3”），这是为什么呢？样式名称是可以自定义更改的，所以应该不能直接判断.style = "标题 3"吧？
With Application.Selection.Find
.Style = wdStyleHeading3
If .Style = wdStyleHeading3 Then MsgBox "OK"
End With
End Sub
为什么其中的If判断不成立,没有弹出MsgBox？想不通。望高人指点。
虽然wdStyleHeading3是个常量（-4），但赋值后，Selection.Find.Style却是一个样式名称的字符串（例如“标题 3”），这是为什么呢？样式名称是可以自定义更改的，所以应该不能直接判断.style = "标题 3"吧？
判断不成立当然不会弹出MsgBox了，要成立才行
成立条件就是文章中有“标题3”样式的内容啊，只要能找到，条件就成立
这恐怕是因为常量既有名称，又有值的缘故吧，就像在VB中，窗体的样式(broderstyle)要设置为无边框，你可以直接设置为none，也可以设置为0