A Dave le encantaría tener una forma de imprimir una hoja de estilo con todas las funciones para sus documentos. Sabe que puede optar por imprimir «Estilos» en el cuadro de diálogo Imprimir, pero prefiere tener una hoja de estilo que muestre los estilos reales, como el color, el tamaño, la fuente, etc.

Desafortunadamente, no existe tal capacidad en Word. Sin embargo, puede crear una hoja de estilo de su agrado utilizando una macro. Por ejemplo, lo siguiente insertará, en el documento actual, los nombres de todos los estilos disponibles en el documento. Cada nombre de estilo está en su propia línea (párrafo) y se formatea utilizando los distintos estilos.

Sub ListStyleNames()

Dim s As Style

For Each s In ActiveDocument.Styles         With Selection             .Style = s             .TypeText (s.NameLocal)

.TypeParagraph         End With     Next s End Sub

Este enfoque, si bien es útil para una lista concisa de estilos, no es mucho más informativo que lo que se puede imprimir usando la designación «Estilos» en el cuadro de diálogo Imprimir. Sin embargo, proporciona una base sobre la cual se puede construir para crear una hoja de estilo con más funciones.

El problema de crear una hoja de estilo detallada utilizando macros es que los estilos pueden contener una gran cantidad de información. El modelo de objetos utilizado por Word (y accesible en VBA) rápidamente se vuelve bastante complejo cuando se prueban estilos para ver lo que contienen. Aquí hay un ejemplo simple para darle el sabor:

Sub SimpleStyleSheet()

Dim s As Style     Dim sOutput As String     Dim sTemp As String     Dim StyleTypes(4) As String

StyleTypes(1) = "Paragraph"

StyleTypes(2) = "Character"

StyleTypes(3) = "Table"

StyleTypes(4) = "List"



For Each s In ActiveDocument.Styles         sOutput = s.NameLocal & vbCrLf         sOutput = sOutput & "   Style type: " & StyleTypes(s.Type) & vbCrLf         sTemp = s.BaseStyle         If Len(sTemp) > 0 Then             sOutput = sOutput & "   Based on: " & s.BaseStyle & vbCrLf         End If         sOutput = sOutput & "   Font: " & s.Font.Name         sTemp = ""

If s.Font.Bold Then sTemp = sTemp & "Bold, "

If s.Font.Italic Then sTemp = sTemp & "Italic, "

If Len(sTemp) > 0 Then             sTemp = Left(sTemp, Len(sTemp) - 2)

sOutput = sOutput & " (" & sTemp & ")"

End If         sOutput = sOutput & vbCrLf & vbCrLf         Selection.TypeText (sOutput)

Next s End Sub

Lo único que hace esta macro es enumerar todos los estilos, qué tipo de estilos son, si se basan en un estilo diferente (y si es así, cómo se llama ese estilo), qué fuente utiliza el estilo y si la fuente es negrita o cursiva. Cualquiera que esté familiarizado con los estilos comprenderá de inmediato que estos pocos elementos son solo una pequeña muestra de lo que se puede definir dentro de un estilo. Verificar todos los formatos de estilo posibles e imprimirlos en la hoja de estilo haría que la macro fuera muy larga, de hecho.

Aun así, esta macro puede resultar útil, ya que proporciona una idea de cómo crear su propia hoja de estilo. Solo necesita averiguar lo que desea ver en la hoja de estilo y luego agregar el código de macro para determinar esa información e imprimirla.

_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 textos más popular del mundo). Esta sugerencia (13365) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365. Puede encontrar una versión de esta sugerencia para interfaz de menú anterior de Word aquí:

link: / word-Printing_a_Full_Style_Sheet [Impresión de una hoja de estilo completa].