Cliccare il comando "Apri" del menu "File" , poi navigare e fare doppio clic su un file il cui stile si desidera elencare . Word verrà aperto il file .
2
Clicca comando " Visual Basic " del tab " Sviluppo " , quindi incollare il seguente frammento di programma nella finestra al centro dello schermo . Questo frammento scorre ciascuno degli stili nel documento corrente . Word memorizza questi stili in un oggetto virtuale chiamato "Stili ", che è parte dell'oggetto virtuale " ActiveDocument " .
Public Sub showStyles2 ( ) per
Dim inString , outstring , s , i, Ruolo
s = " "
For i = 1 To ActiveDocument.Styles.Count
Next i
Documents.Add
ActiveDocument.Content = s
End Sub
3
incollare le seguenti dichiarazioni dopo l'istruzione " For i " di cui al punto precedente . Queste nuove dichiarazioni leggono lo stile di base dello stile corrente , e registrare lo stile di base in una stringa , a meno che lo stile è già nella stringa . Ogni stile della collezione "Stili" ha un proprio nome . Tuttavia, quel nome è solo un nome in codice . Il vero nome dello stile è nella proprietà " BaseStyle " .
InString = ActiveDocument.Styles ( i) . BaseStyle
outstring = s
pos = InStr ( 1 , outstring , inString ) per
( pos = 0) allora
s = s & inString & " , "
End If
4
Fare clic su una qualsiasi delle dichiarazioni nel programma appena incollato , quindi fare clic su comando " Esegui" del menu " Run" per eseguire il programma . Fare clic sull'icona del nuovo documento di Word che è comparso nella barra delle applicazioni di Windows . Apparirà la finestra del documento e visualizzare i nomi di stile di tutti gli stili nel documento aperto nel passaggio 1 .
5
Premere " controllo" e "P" contemporaneamente per stampare il comma nomi di stile .
software © www.354353.com