Propriedade Style.InUse (Word)

True se o estilo especificado for um estilo interno que tenha sido modificado ou aplicado no documento ou um novo estilo que foi criado no documento. Boolean somente leitura.

Sintaxe

expression. InUse

Expressão Uma expressão que retorna um objeto 'Style'.

Comentários

A propriedade InUse necessariamente não indica se o estilo atualmente é aplicado a qualquer texto no documento. Por exemplo, se o texto formatado com um estilo for excluído, a propriedade InUse do estilo permanece True. Para estilos internos que nunca foram usados no documento, essa propriedade retornará False.

Exemplo

Este exemplo exibe uma caixa de mensagem que lista os nomes de todos os estilos que estão sendo usados no momento no documento ativo.

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

Confira também

Objeto Style

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.