Word VBA教程:InUse属性

如果为 True,则指定的样式是一个已在文档中修改或应用的内置样式,或者是在文档中新建的样式。Boolean 类型,只读。

expression.InUse

expression   必需。该表达式返回一个Style对象。

说明

本属性并不一定表明该样式当前是否已应用于文档中的文本。例如,删除一个应用了该样式的文本后,该样式的 InUse属性仍然为 True。对于尚未在文档中使用过的内置样式,本属性返回 False。

VBA示例

本示例显示一个消息框,列出活动文档中当前正在使用的所有样式的名称。


Dim docActive As Document
Dim strMessage As String
Dim styleLoop As Style
Set docActive = ActiveDocument

strMessage = "Styles in use:" & vbCr
For Each styleLoop IndocActive.Styles
    If styleLoop.InUse = True Then
        WithdocActive.Content.Find
            .ClearFormatting
            .Text = ""
            .Style = styleLoop
            .Execute Format:=True
            If .Found = True Then
               strMessage =strMessage & styleLoop.Name & vbCr
            End If
        End With
    End If
Next styleLoop
MsgBoxstrMessage

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号