通过

Word) (Style.InUse 属性

  • 项目

True 指定的样式是否已修改或已在文档中创建一个新样式或文档中应用的内置样式。 只读 Boolean。

语法

expression。 InUse

表达 返回“Style”对象的表达式。

备注

InUse 属性并不一定表明该样式当前是否已应用于文档中的任何文本。 例如，如果删除已有的样式设置格式的文本，则 InUse 属性的样式将保持 为 True 。 对于尚未在文档中使用过的内置样式，该属性返回 False 。

示例

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

Dim docActive As Document 
Dim strMessage As String 
Dim styleLoop As Style 
 
Set docActive = ActiveDocument 
 
strMessage = "Styles in use:" & vbCr 
 
For Each styleLoop In docActive.Styles 
 If styleLoop.InUse = True Then 
 With docActive 
 .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 
 
MsgBox strMessage

另请参阅

样式对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。