Propiedad Style.InUse (Word)

True si el estilo especificado es un estilo integrado que se ha modificado o aplicado en el documento o un nuevo estilo que se ha creado en el documento. Boolean de solo lectura.

Sintaxis

expresión. InUse

Expresión Expresión que devuelve un objeto 'Style'.

Comentarios

La propiedad InUse no indica necesariamente si el estilo está aplicado actualmente a cualquier texto del documento. Por ejemplo, si se elimina el texto que se ha dado formato con un estilo, la propiedad InUse del estilo permanece en True. Para los estilos integrados que nunca se han utilizado en el documento, esta propiedad devuelve False.

Ejemplo:

En este ejemplo se muestra un cuadro de mensaje que enumera los nombres de todos los estilos que están actualmente en uso en el documento activo.

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

Consulte también

Objeto Style

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.