Du kan se vilka stilar finns i ett dokument genom att klicka på Word " Start "-fliken . Men att byta till den här fliken kan dra dig undan från fliken som du för tillfället arbetar i , vilket avbryter ditt arbetsflöde . Du kan förhindra att problem genom att ha en tryckt förteckning över din dokumentets liknande namn. Det är möjligt att skapa den här listan genom att skriva det , men Word Visual Basic programmeringsspråk kan skapa det snabbare . Instruktioner
1
Klicka på " Arkiv " -menyn är " Öppna " kommandot , sedan navigera till och dubbelklicka på en fil vars format du vill lista . Word kommer att öppna filen .
2
Klicka på " Utvecklare " fliken för " Visual Basic " kommandot , sedan klistra in följande program fragmentet i fönstret i mitten av skärmen . Detta fragment itererar igenom varje stilar i det aktuella dokumentet . Word lagrar dessa stilar i ett virtuellt objekt som kallas " Styles ", som är en del av " ActiveDocument " virtuella föremål .
Public Sub showStyles2 ( ) katalog
Dim inString , outstring , s , i, pos
s = " "
För i = 1 till ActiveDocument.Styles.Count
Nästa jag
Documents.Add
ActiveDocument.Content = s
End Sub
3
Klistra följande påståenden efter " för jag " uttalande som anges i föregående steg . Dessa nya uttalanden läser basen stilen av den aktuella stilen , och spela in basen stil i en sträng , om inte att stilen är redan i strängen . Varje stil i " Styles " samlingen har sitt eget namn . Dock är det namnet bara ett kodnamn . Den sanna namnet på stilen är i " BaseStyle " egendom .
InString = ActiveDocument.Styles ( i) . BaseStyle
outstring = s
pos = InStr ( 1 , outstring , inString ) katalog p Om ( pos = 0 ) Then
s = s & inString & " , "
End If
4
Klicka på någon av de uttalanden i programmet du just klistrat , klicka sedan på " Kör " -menyn är " Kör " -kommandot för att köra programmet . Klicka på ikonen för den nya Word- dokument som är dök upp i aktivitetsfältet i Windows . Dokumentets fönster visas och visa stilen namnen på alla stilar i dokumentet du öppnade i steg 1 .
5
Tryck " Kontroll " och " P " samtidigt för att skriva ut stycket liknande namn. Addera
