/ Forside / Teknologi / Administrative / MS-Office / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
MS-Office
#NavnPoint
sion 18709
refi 14474
Klaudi 9389
Rosco40 5695
berpox 5456
dk 5398
webnoob 4919
Benjamin... 4870
o.v.n. 4637
10  EXTERMINA.. 4373
Word 2000 : Makro
Fra : Joe Bob


Dato : 04-04-01 08:54

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.



 
 
Mikkel Bundgaard (04-04-2001)
Kommentar
Fra : Mikkel Bundgaard


Dato : 04-04-01 11:02

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



Joe Bob (05-04-2001)
Kommentar
Fra : Joe Bob


Dato : 05-04-01 11:54

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



Leo Heuser (07-04-2001)
Kommentar
Fra : Leo Heuser


Dato : 07-04-01 09:37

Hej Mikkel

Det er ikke et af mine børn. Den må en anden
få æren for

Med venlig hilsen
LeoH


"Mikkel Bundgaard" <mikkelbu@teliamail.dk> skrev i en meddelelse
news:VCCy6.828$76.96887@news101.telia.com...

>
> Her er noget VBA, som svjv kommer fra Leo Heuser.




Søg
Reklame
Statistik
Spørgsmål : 177559
Tips : 31968
Nyheder : 719565
Indlæg : 6408934
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste