Hvordan skrive ut en skriftliste i 2007

April 8

Veldig tidlige versjoner av Microsoft Word inneholdt en funksjon som genererte en utskriftsvennlig liste over alle programmets tilgjengelige skrifter. Denne funksjonaliteten har ikke vært i Word misligholdt i mange år, men det er mulig å bruke Microsoft Office Word 2007 makro koding alternativer for å legge det selv. Det innebærer litt Visual Basic programmering, men heldigvis Microsofts nettside gir forhåndsskrevet VB kode for å gjøre akkurat dette.

Bruksanvisning

1 Velg "Utvikler" fanen. Hvis du ikke finner den, klikker du på Office-knappen, og deretter "Alternativer for Word" og deretter "Popular" og sjekk "Vis Utvikler fanen på båndet."

2 Klikk på "Makroer". Skriv inn et navn på makroen - noe sånt som "List Fonts" ville være passende, men du kan kalle det hva du vil. Velg "normal.dotm" fra "makroer i" -listen for å gjøre makro tilgjengelig uansett hva dokumentet du redigerer. Til slutt klikker du på "Create" for å få opp Visual Basic Editor.

3 Kopier helheten av følgende kode, som begynner med linjen "Sub ListFonts ()" og slutter med "End Sub" og lime den inn i Visual Basic Editor:

Sub ListFonts ()

Dim varFont As Variant

'Hastigheter makro prosessering og undertrykker display.

Application.ScreenUpdating = False

Opprett nytt dokument.

Documents.Add Mal: = "normal"

'Loop gjennom hver tilgjengelige skrift.

For hver varFont I FontNames

With Selection

'Formater for navnet på skriften.

.Font.Name = "Times New Roman"

.Font.Bold = True

.Font.Underline = True

'Sett Font navn.

.TypeText varFont

"Sett inn et nytt avsnitt etter Skriftnavn.

.InsertParagraphAfter

"Flytt til nytt avsnitt.

.MoveDown Enhet: = wdParagraph, Count: = 1, Extend: = wdMove

'Formater for skriften eksempel.

.Font.Bold = False

.Font.Underline = False

.Font.Name = VarFont

'Enter eksempel tekst (bokstaver.)

.TypeText "Abcdefghijklmnopqrstuvwxyz"

"Sett inn et nytt avsnitt.

.InsertParagraphAfter

"Flytt til nytt avsnitt.

.MoveDown Enhet: = wdParagraph, Count: = 1, Extend: = wdMove

'Sett eksempel tekst (numeriske tegn.)

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

'Sett inn to nye paragrafer og flytte ned.

.InsertParagraphAfter

.MoveDown Enhet: = wdParagraph, Count: = 1, Extend: = wdMove

End With

Neste varFont

Application.ScreenUpdating = True

End Sub

Pass på at dette kopiert kode gjør opp hele innholdet i makroen - slette en kode som var der til å begynne med. Klikk alle "OK" for å fullføre opprettelsen av makroen.

4 Høyreklikk på verktøylinjen for hurtigtilgang - sett med ikoner like til høyre for Office-knappen som inkluderer "Lagre" og "Open". Klikk "Tilpass Quick Access Toolbar."

5 Velg "Makroer" fra "Velg kommandoer fra" rullegardinmenyen, og velg deretter makroen du nettopp laget fra listen som vises. Klikk på "Legg til".

6 Klikk på "Endre" for å velge et bilde for knappen, og klikk deretter "OK". En ny knapp vises nå i Quick Access Toolbar; klikke på det vil skape et nytt Word-dokument og fylle det med et utvalg av alle tilgjengelige font. Deretter kan du skrive ut dokumentet på samme måte som alle andre.