Ga naar inhoud
  • 0

Lettertype bekijken programma


anoniem

Vraag

Hallo allemaal, soms kom ik een lettertype tegen die ik niet meteen thuis kan brengen. ik type dan een woord in Word en probeer allerlij lettertypes uit om te kijken welke overeen komt. Nou vraag ik me af of er niet een programmatje bestaat waarin je een woord in alle lettertypes op je pc kan weergeven in een keer. Dus een lijst van het woord dat je ingetyped hebt in alle fonts van je pc. Moos
Link naar reactie

9 antwoorden op deze vraag

Aanbevolen berichten

  • 0
Ja ok, maar op die manier kan ik ze ook allemaal bekijken in Word bij Lettertype, maar dan weet ik dus nog niet hoe bijvoorbeeld het woord "Website" er in al die lettertypes uit ziet. Dus ik zoek een programma zoals gerben aangeeft met de mogelijkkheid om een woord in te tikken waardoor ik een lijst krijg met dat woord in alle lettertypes en dat heb ik nog niet gevonden, wel bedankt overigens gerben.
Link naar reactie
  • 0
Kan ook met een Word-macrootje: [code:1:7076197bb1] Sub AllFonts() If Selection.Text = "" Then tekst = InputBox("Welke tekst?") Else tekst = Selection.Text Selection.Delete End If deffont = Selection.Font.name For Each f In FontNames Selection.Font.name = f Selection.TypeText tekst Selection.Font.name = deffont Selection.TypeText vbTab & f Selection.TypeParagraph Next f Selection.WholeStory Selection.ConvertToTable Separator:=wdSeparateByTabs, NumColumns:=2, _ NumRows:=77, Format:=wdTableFormatNone, ApplyBorders:=True, ApplyShading _ :=True, ApplyFont:=True, ApplyColor:=True, ApplyHeadingRows:=True, _ ApplyLastRow:=False, ApplyFirstColumn:=True, ApplyLastColumn:=False, _ AutoFit:=True, AutoFitBehavior:=wdAutoFitFixed Selection.Sort ExcludeHeader:=False, FieldNumber:="Column 2", _ SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, _ FieldNumber2:="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _ wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _ wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _ wdSortSeparateByTabs, SortColumn:=False, CaseSensitive:=False, LanguageID _ :=wdEnglishUK Selection.HomeKey wdStory End Sub [/code:1:7076197bb1] Je kan een tekst typen en selecteren, die zet ie dan uit alle fonts. Heb je niks geselecteerd dan wordt een tekst gevraagd. Macro installeren: Menu Extra - Macro's - Editor, linksboven normal selecteren, Menu Invoegen - Module, macro in module plakken (normal opslaan, gebeurt anders bij sluiten van Word)
Link naar reactie

Doe mee aan dit gesprek

Om te reageren, moet je eerst inloggen. Dit doe je door rechtsboven op inloggen te klikken.

Gast
Antwoord op deze vraag...

×   Geplakt als verrijkte tekst.   Plak in plaats daarvan als platte tekst

  Er zijn maximaal 75 emoji toegestaan.

×   Je link werd automatisch ingevoegd.   Tonen als normale link

×   Je vorige inhoud werd hersteld.   Leeg de tekstverwerker

×   Je kunt afbeeldingen niet direct plakken. Upload of voeg afbeeldingen vanaf een URL in

×
×
  • Nieuwe aanmaken...