1
clic comando " Abrir" del menú "Archivo ", luego busque y haga doble clic en un archivo cuyos estilos desea listar . Word abrirá el archivo .
2
clic comando " Visual Basic " de la pestaña " desarrolladores" , a continuación, pegue el siguiente fragmento de programa en la ventana en el centro de la pantalla. Este fragmento se repite en cada uno de los estilos del documento actual . Word almacena estos estilos en un objeto virtual llamado "Estilos ", que es parte del objeto virtual " ActiveDocument " .
Public Sub showStyles2 ()
instring Dim , outString , s , i, pos
s = ""
For i = 1 To ActiveDocument.Styles.Count
Siguiente I Love
Documents.Add
ActiveDocument.Content = s
End Sub
3
Pegar las siguientes declaraciones después de que el "Yo " declaración indicada en el paso anterior . Estos nuevos estados leen el estilo de base del estilo actual , y registran el estilo de base en una cadena , a menos que el estilo ya está en la cadena . Cada estilo de la colección " Estilos " tiene su propio nombre. Sin embargo , ese nombre es sólo un nombre en clave . El verdadero nombre del estilo se encuentra en la propiedad " BaseStyle " .
Instring = ActiveDocument.Styles ( i ) . BaseStyle
outString = s
pos = InStr ( 1 , outString , instring )
If ( pos = 0 ) entonces
s = s y instring & ","
End If
4
Haga clic en cualquiera de los estados en el programa que acaba de pegar , a continuación, haga clic en el comando " ejecutar" del menú " ejecutar" para ejecutar el programa . Haga clic en el icono del nuevo documento de Word que se apareció en la barra de tareas de Windows. Aparecerá la ventana de documento y mostrar los nombres de los estilos de todos los estilos en el documento que abrió en el paso 1 .
5
Press "Control" y " P " al mismo tiempo para imprimir el apartado de nombres de estilo .