Ga naar inhoud

Lettertype bekijken programma


anoniem

Aanbevolen berichten

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
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
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

Om een reactie te plaatsen, moet je eerst inloggen

Gast
Reageer op dit topic

×   Geplakt als verrijkte tekst.   Herstel opmaak

  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...