Puede determinar la cantidad de estilos disponibles en un documento (al crear una macro VBA) utilizando la propiedad Count con el objeto Styles. Esto se hace usando la siguiente sintaxis:

x = ActiveDocument.Styles.Count

donde x es la variable que luego puede usar en otras líneas de macro de VBA. Tenga en cuenta que esta función indica cuántos se han definido, no cuántos de ellos están realmente en uso. Esto significa que también se cuentan los estilos integrados. Si desea excluir estilos incorporados, puede hacer un recuento iterativo real de los estilos de esta manera:

x = 0 For Each objStyle in ActiveDocument.Styles     If Not objStyle.BuiltIn Then x = x + 1 Next objStyle

_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 (803) 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-Determining_How_Many_Styles_are_Available [Determinar cuántos estilos están disponibles].