Word le permite crear estilos para definir cómo debe aparecer el texto en su documento. Además de una lista completa de estilos integrados, Word le permite crear cualquier estilo personalizado que desee. Más tarde, puede imprimir una hoja de estilo para su documento, como se describe en otros números de WordTips.

Sin embargo, ¿qué sucede si solo desea una lista de estilos personalizados? Word no incluye una función que le permita discriminar qué estilos se incluyen en la impresión de una hoja de estilo. Si desea una lista de estilos personalizados utilizados en un documento, puede crear uno utilizando una macro. La siguiente macro recorre todos los estilos y compila una lista de aquellos que cumplen con ambos criterios (personalizado y en uso):

Sub PrintCustomStyles()

Dim docThis As Document     Dim styItem As Style     Dim sUserDef(499) As String     Dim iStyleCount As Integer     Dim J As Integer

' Ref the active document     Set docThis = ActiveDocument

iStyleCount = 0     For Each styItem In docThis.Styles         'see if being used         If styItem.InUse Then             'make sure not built in             If Not styItem.BuiltIn Then                 iStyleCount = iStyleCount + 1                 sUserDef(iStyleCount) = styItem.NameLocal             End If         End If     Next styItem

If iStyleCount > 0 Then         ' Create the output document         Documents.Add

Selection.TypeText "User-defined Styles In Use"

Selection.TypeParagraph         For J = 1 To iStyleCount             Selection.TypeText sUserDef(J)

Selection.TypeParagraph         Next J         Selection.TypeParagraph         Selection.TypeParagraph     Else         MsgBox "No custom styles in use."

End If End Sub

Recuerde que existe una diferencia entre «estilos personalizados» y «estilos personalizados». (Un estilo integrado puede ser un estilo personalizado, si cambia las características predeterminadas del estilo). Esta macro imprime una lista de estilos personalizados; ignora por completo aquellos estilos que Word considera integrados.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (1530) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Printing_a_List_of_Custom_Styles [Impresión de una lista de estilos personalizados].