Skrive ut en liste over egendefinerte stiler

May 23  by Eliza

Word kan du lage stiler å definere hvordan teksten i dokumentet skal vises. I tillegg til en fullstendig liste over innebygde stiler, kan Word du opprette egendefinerte stiler som du måtte ønske. Du kan senere skrive ut et stilark for dokumentet, som beskrevet i andre saker av WordTips.

Hva hvis du vil ha en liste med bare egendefinerte stiler, men? Word ikke inkluderer en funksjon som gjør det mulig å diskriminere på hvilke maler som skal inkluderes i et stilark utskrift. Hvis du vil ha en liste over egendefinerte stiler som brukes i et dokument, kan du opprette en ved hjelp av en makro. Følgende makro skritt gjennom alle stilene og utarbeider en liste over de som oppfyller begge kriterier (tilpassede og blir brukt):

Sub PrintCustomStyles ()
Dim docThis som dokument
Dim styItem Som stil
Dim sUserDef (499) As String
Dim iStyleCount As Integer
Dim J As Integer

'Jf aktive dokumentet
Satt docThis = ActiveDocument

iStyleCount = 0
For Hver styItem I docThis.Styles
"Se hvis brukes
Hvis styItem.InUse Deretter
'Sørg for at ikke bygget på
Hvis ikke styItem.BuiltIn Deretter
iStyleCount = iStyleCount + 1
sUserDef (iStyleCount) = styItem.NameLocal
End If
End If
Neste styItem

Hvis iStyleCount> 0 Then
Opprett utgangsdokument
Documents.Add

Selection.TypeText "Brukerdefinerte stiler i bruk"
Selection.TypeParagraph
For J = 1 Til iStyleCount
Selection.TypeText sUserDef (J)
Selection.TypeParagraph
Neste J
Selection.TypeParagraph
Selection.TypeParagraph
Else
MsgBox "Ingen egendefinerte stiler i bruk."
End If
End Sub

Husk at det er en forskjell mellom "football stiler" og "tilpassede stiler." (En innebygd stil kan være en tilpasset stil, hvis du endre standard kjennetegn ved stilen.) Denne makroen ut en liste over egendefinerte stiler; det helt ignorerer disse stilene som Word anser innebygde.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (1530) gjelder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Word (Word 2007 og senere) her: Skrive ut en liste over egendefinerte stiler.