Ako vytlačiť zoznam písiem v roku 2007

Veľmi skoré verzie programu Microsoft Word obsahoval funkciu , ktorá vytvorila pre tlač zoznam všetkých programe dostupných písiem . Táto funkcia nebola v programe Word v predvolenom nastavení po mnoho rokov , ale je možné použiť program Microsoft Office Word makro možnosti kódovania 2007 , aby ju pridať sami . Jedná sa o malú aplikáciu Visual Basic programovania , ale webová stránka našťastie Microsoft ponúka predpripravené VB kód k tomu práve tento . Pokyny dovolená 1

Vyberte kartu " Vývojár " . Ak nemôžete nájsť to , kliknite na tlačidlo Office , potom " Možnosti programu Word " , potom " Obľúbené " a zaškrtnite " Zobraziť kartu Vývojár na páse kariet. "
2

Kliknite na " makrá . " Zadajte názov makra - niečo ako " Zoznam písiem " , by bolo vhodné , ale môžete hovoriť, čo chcete . Zvoľte " Normal.dotm " od " makrá " zoznamu , aby sa vaše makrá k dispozícii bez ohľadu na to , čo dokument , ktorý upravujete . Nakoniec kliknite na " Vytvoriť " , aby sa editor jazyka Visual Basic .
3

Skopírujte celistvosť nasledujúci kód , počnúc riadku " Sub ListFonts ( ) " a končiac " Koniec sub " a vložte ho do editora jazyka Visual Basic :

sub ListFonts ( )

Dim varFont As Variant

" Rýchlosti makro spracovanie a potláča zobrazenie

Application.ScreenUpdating = False

" Vytvoriť nový dokument

Documents.Add Šablóna : . = " normal "

" . Slučka prostredníctvom všetkých dostupných font

pre každý varFont V FontNames

s výberom

" Formát pre názov písma .

. Font.Name = " Times New Roman "

. Font.Bold = TRUE

. Font.Underline = TRUE

" Vložte názov písma .

. TypeText varFont

' Vložiť nový bod po .. Meno Font

InsertParagraphAfter

' Presunúť do nového odseku

MoveDown jednotka : .. = wdParagraph , Count : = 1 , Extend : = wdMove
< Font.Underline = False

. Font.Name = varFont

' Formát pre príklad písma .

. Font.Bold = False

. > ' Zadajte ukážkový text ( abecedné znaky . )

. TypeText " abcdefghijklmnopqrstuvwxyz "

' Vložiť nový bod .

. InsertParagraphAfter

" Presunúť do nový odsek

MoveDown jednotka : .. = wdParagraph , Count : = 1 , Extend : ( . číselných znakov ) . = wdMove

' Vložiť príklad texte

TypeText " 0123456789 ? $ % & ( ) [ ] * _ - = + /< > "

" vložte dva nové body a dole .

. InsertParagraphAfter

. . InsertParagraphAfter

MoveDown jednotka : = wdParagraph , Count : = 1 , Extend : = wdMove

End With

Ďalšie varFont

Application.ScreenUpdating = TRUE

End Sub

Uistite sa , že táto skopírovať kód tvorí celý obsah makra - vymazať akýkoľvek kód , ktorý tam bol sa začať . Kliknite na všetky tlačidla " OK " pre dokončenie vytvorenie makra
4

Pravým tlačidlom myši na panel s nástrojmi Rýchly prístup - . Sadu ikon napravo od tlačidla Office , ktoré obsahujú " Uložiť " a " Otvoriť " . Kliknite na " Prispôsobiť panel s nástrojmi Rýchly prístup . "
5

vyberte " makrá " z " Zvoliť príkazy z " pull - down menu , vyberte makro ste práve vyrobený zo zoznamu , ktorý sa objaví . Kliknite na " Pridať " .
6

Kliknutím na tlačidlo " Upraviť " vyberte snímku , pre tlačidlo , kliknite na tlačidlo " OK " . Nové tlačidlo sa objaví v paneli s nástrojmi Rýchly prístup , kliknutím sa vytvorí nový dokument programu Word a naplňte ju vzorkou všetkých dostupných písmo . Potom môžete vytlačiť tento dokument , ako by ste akékoľvek iné .

• Predchádzajúca strana: Ako otvoriť dokument programu Word v programe Access 2007 
• Ďalšia strana: Ako písať dokumenty Word prihlásený