Свойство Style.InUse (Word)

Статья
04/07/2023

Значение true , если указанный стиль является встроенным стилем, который был изменен или применен в документе, или новый стиль, созданный в документе. Только для чтения, Boolean.

Синтаксис

выражение. 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

См. также

Объект Style

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через