Klik op "Open " commando van het menu " Bestand " , navigeer naar en dubbelklik op een bestand waarvan de stijlen die u wilt weergeven . Word zal het bestand te openen . Kopen van 2

Klik op " Visual Basic " commando van het tabblad "Ontwikkelaar " , dan is het volgende programma -fragment in het venster in het midden van het scherm te plakken . Dit fragment doorloopt elk van de stijlen in het huidige document . Word slaat deze stijlen in een virtueel object genaamd " Styles ", dat deel uitmaakt van de " ActiveDocument " virtuele object .

Public Sub showStyles2
( )

Dim inString
, outstring , s , i , pos

s = " "

For i = 1 To ActiveDocument.Styles.Count

Next i

Documents.Add

ActiveDocument.Content = s

End Sub
3

Plak volgende uitspraken na de "For i " verklaring in de vorige stap vermeld . Deze nieuwe verklaringen lees de basis stijl van de huidige stijl , en noteer de basis stijl in een string , tenzij die stijl is al in de string. Elke stijl in de collectie " Stijlen " heeft zijn eigen naam . Maar die naam is slechts een codenaam .

InString = ActiveDocument.Styles ( i ) . BaseStyle

outstring
= s

pos = InStr de ware naam van de stijl is in de " BaseStyle " eigenschap .
( 1 , outstring , inString ) op Twitter

Als ( pos = 0 ) dan

s = s & inString
& " , "

Eind
Als
4

Klik op een van de verklaringen in het programma dat u zojuist geplakt , klikt u op het menu " Run ", " Run" commando om het programma uit te voeren . Klik op het pictogram van het nieuwe Word-document dat is verschenen in de Windows-taakbalk . Venster van het document verschijnt en geeft de stijl namen van alle stijlen in het document dat u in stap 1 hebt geopend .

Druk op " Control" 5 en " P " gelijktijdig in om de paragraaf van de stijl namen afgedrukt .