Si può vedere ciò che gli stili sono disponibili in un documento facendo clic sulla scheda "Home" di Word. Ma il passaggio a questa scheda può tirare lontano dalla scheda che si sta lavorando in, che interrompe il flusso di lavoro. È possibile evitare questo problema da avere una lista stampata di nomi di stile del documento. E 'possibile creare questo elenco digitandolo, ma il linguaggio di programmazione Visual Basic di Word in grado di creare più rapidamente.

istruzione

1 Clicca comando "Apri" del menu "File", quindi individuare e fare doppio clic su un file il cui stili si desidera elencare. Word aprirà il file.

2 Clicca comando "Visual Basic" della scheda "Sviluppatore", 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 fa parte del "ActiveDocument" oggetto virtuale.

Public Sub showStyles2 ()

Dim inString, outstring, s, i, pos

s = ""

Per i = 1 Per ActiveDocument.Styles.Count

Next i

Documents.Add

ActiveDocument.Content = s

End Sub

3 Incollare le seguenti dichiarazioni dopo la "Per i" dichiarazione elencato nel passaggio precedente. Queste nuove istruzioni 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)

Se (pos = 0) Poi

s = S & inString & ","

Finisci se

4 Fare clic su una delle dichiarazioni del 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 è apparso nella barra delle applicazioni di Windows. La finestra del documento apparirà e visualizzare i nomi degli stili di tutti gli stili del documento aperto nel passaggio 1.

5 Premere il tasto "Control" e "P" simultaneamente per stampare il paragrafo di nomi di stile.