Du kan se hvilke stiler er tilgjengelige i et dokument ved å klikke Words "Home "-kategorien . Men å bytte til denne kategorien kan trekke deg bort fra kategorien du for øyeblikket arbeider i, som avbryter din arbeidsflyt . Du kan forhindre dette problemet ved at en utskrevet liste over dokumentets stil navn. Det er mulig å lage denne listen ved å skrive det , men Word Visual Basic programmeringsspråk kan lage det raskere. Instruksjoner
en
Klikk på " File" -menyen er " Åpne"-kommandoen , og deretter navigere til og dobbeltklikker på en fil som stiler du ønsker å liste . Word vil åpne filen .
2
Klikk på " Utvikler " fanen " Visual Basic "-kommandoen , deretter limer du inn følgende program fragment inn i vinduet på midten av skjermen . Dette fragment gjentas gjennom hver av stilene i det aktuelle dokumentet. Word lagrer disse stilene i et virtuelt objekt kalt " Styles ", som er en del av " ActiveDocument " virtuelt objekt.
Public Sub showStyles2 ( )
Dim inString , outstring , s , i, pos
s = ""
For i = 1 To ActiveDocument.Styles.Count
Neste i
Documents.Add
ActiveDocument.Content = s
End Sub
3
Lim følgende utsagn etter " For jeg " statement oppført i forrige trinn . Disse nye uttalelser lese grunnstil av dagens stil , og ta opp basen stil i en streng, med mindre at stilen er allerede i strengen . Hver stil i " Styles " samling har sitt eget navn . Imidlertid er det navnet bare en kode navn . Den sanne navnet på stilen er i " BaseStyle " eiendom .
InString = ActiveDocument.Styles ( i) . BaseStyle
outstring = s
pos = InStr ( 1 , outstring , inString )
p Hvis ( pos = 0) Then
s = s & inString & " , "
End If
4
Klikk på en av uttalelsene i programmet du nettopp limte inn , og klikk deretter på "Kjør" -menyen er " Kjør"-kommandoen for å kjøre programmet . Klikk på ikonet for den nye Word- dokument som er dukket opp på oppgavelinjen i Windows . Dokumentets vindu vil dukke opp og vise stilen navnene på alle stilene i dokumentet du åpnet i trinn 1 .
5
Trykk "Ctrl " og " P" samtidig for å skrive ut ledd stilnavnene .