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
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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de