Font-Identifizierungssoftware

Dieses Thema im Forum "Software allgemein" wurde erstellt von sprossel, 30. September 2002.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. sprossel

    sprossel Byte

    Registriert seit:
    5. September 2000
    Beiträge:
    38
    Hallo,
    kennt jemand eine Fontidentifizierungssoftware, wo man einen Font den man nicht kennt bestimmen kann.
    Danke
     
  2. 1995

    1995 Kbyte

    Registriert seit:
    20. November 2000
    Beiträge:
    128
    Ich hab mir mal ein Makro für Word geschrieben, das alle installierten Fonts mit Namen und Schriftprobe in ein Dokument schreibt. Vielleicht hilft Dir das weiter.
    mfg Fritz Weinel

    Sub Schriftarten()
    Dim Fontcnt As Integer
    Dim i As Integer

    Documents.Add
    With ActiveDocument.PageSetup
    .LineNumbering.Active = False
    .Orientation = wdOrientLandscape
    .TopMargin = CentimetersToPoints(2.5)
    .BottomMargin = CentimetersToPoints(1)
    .LeftMargin = CentimetersToPoints(1)
    .RightMargin = CentimetersToPoints(1)
    .Gutter = CentimetersToPoints(0)
    .HeaderDistance = CentimetersToPoints(1.25)
    .FooterDistance = CentimetersToPoints(1.25)
    .PageWidth = CentimetersToPoints(29.7)
    .PageHeight = CentimetersToPoints(21)
    .FirstPageTray = wdPrinterDefaultBin
    .OtherPagesTray = wdPrinterDefaultBin
    .SectionStart = wdSectionNewPage
    .OddAndEvenPagesHeaderFooter = False
    .DifferentFirstPageHeaderFooter = False
    .VerticalAlignment = wdAlignVerticalTop
    .SuppressEndnotes = False
    .MirrorMargins = False
    End With
    Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(6), _
    Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces
    Selection.Font.Size = 10

    Fontcnt = FontNames.Count

    For i = 1 To Fontcnt
    Selection.Font.Name = "Arial"
    Selection.TypeText Text:=FontNames(i) & vbTab
    Selection.Font.Name = FontNames(i)
    Selection.TypeText Text:="€ ABCDEFGHIJKLMNOPQRSTUVWXYZ 01234567890"
    Selection.TypeParagraph
    Next
    Selection.WholeStory
    Selection.ConvertToTable Separator:=wdSeparateByTabs, NumColumns:=2, _
    NumRows:=Fontcnt, Format:=wdTableFormatNone, ApplyBorders:=True, ApplyShading _
    :=True, ApplyFont:=True, ApplyColor:=True, ApplyHeadingRows:=True, _
    ApplyLastRow:=False, ApplyFirstColumn:=True, ApplyLastColumn:=False, _
    AutoFit:=False
    Selection.Sort ExcludeHeader:=False, FieldNumber:="Spalte1", SortFieldType _
    :=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, FieldNumber2 _
    :="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _
    wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _
    wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _
    wdSortSeparateByTabs, SortColumn:=False, CaseSensitive:=False, LanguageID _
    :=wdLanguageNone
    Selection.Rows.ConvertToText Separator:=wdSeparateByTabs
    Selection.HomeKey Unit:=wdStory
    End Sub
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen