Yep. Den kan godt bruges.... (tak)
"Mikkel Bundgaard" <mikkelbu@teliamail.dk> wrote in message
news:VCCy6.828$76.96887@news101.telia.com...
> Joe Bob <powerviper4@hotmail.com> wrote in message
> news:YqAy6.45$II3.1516@news.get2net.dk...
> > Hej
> >
> > Der skulle være en makro / template hvor i man kan få alle sine
> installeret
> > skrifttyper udskrevet.
> >
> > Er der nogen der kan sige hvor man kan finde denne ?
> >
> > På forhånd tak.
>
> Hej Joe
>
> Her er noget VBA, som svjv kommer fra Leo Heuser.
>
> Sub Visfonts()
> Application.ScreenUpdating = False
> Dim N As Integer
> With Selection
> .TypeText Text:= _
> "På denne computer findes følgende skrifttyper:"
> .TypeParagraph
> .TypeParagraph
> End With
> For N = 1 To FontNames.Count()
> With Selection
> .Font.Size = 14
> .Font.Name = FontNames(N)
> .TypeText Text:=FontNames(N) _
> + " ÆØÅ æøå Skrifttype nr. " + Str(N)
> .TypeParagraph
> End With
> Next
> With Selection 'listen sorteres efter fontnavn
> .HomeKey Unit:=wdStory
> .MoveDown Unit:=wdLine, Count:=2
> .EndKey Unit:=wdStory, Extend:=wdExtend
> .Sort ExcludeHeader:=False, FieldNumber:="Afsnit", _
> SortFieldType:=wdSortFieldAlphanumeric, _
> SortOrder:=wdSortOrderAscending, FieldNumber2 _
> :="", SortFieldType2:=wdSortFieldAlphanumeric, _
> SortOrder2:=wdSortOrderAscending, FieldNumber3:="", _
> SortFieldType3:=wdSortFieldAlphanumeric, _
> SortOrder3:=wdSortOrderAscending, Separator:= _
> wdSortSeparateByTabs, SortColumn:=False, _
> CaseSensitive:=False, LanguageID _
> :=wdLanguageNone
> End With
> Selection.HomeKey Unit:=wdStory
> Application.ScreenUpdating = True
> End Sub
>
> --
> Mvh.
> Mikkel Bundgaard
> RUC Datalogi
>
>