Propriedade Style. InUse (Word)Style.InUse property (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.True if the specified style is a built-in style that has been modified or applied in the document or a new style that has been created in the document. Boolean somente leitura.Read-only Boolean.

SintaxeSyntax

expression.expression. InUse

expressão Uma expressão que retorna um objeto 'Style'.expression An expression that returns a 'Style' object.

ComentáriosRemarks

A propriedade InUse necessariamente não indica se o estilo atualmente é aplicado a qualquer texto no documento.The InUse property doesn't necessarily indicate whether the style is currently applied to any text in the document. Por exemplo, se o texto formatado com um estilo for excluído, a propriedade InUse do estilo permanece True.For instance, if text that's been formatted with a style is deleted, the InUse property of the style remains True. Para estilos internos que nunca foram usados no documento, essa propriedade retornará False.For built-in styles that have never been used in the document, this property returns False.

ExemploExample

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.This example displays a message box that lists the names of all the styles that are currently being used in the active document.

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émSee also

Objeto StyleStyle Object

Suporte e comentáriosSupport and feedback

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação?Have questions or feedback about Office VBA or this documentation? 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.