Recherche

 

Avec une macro :

Sub ListePolicesInstallées()
Dim ma_phrase As String
ma_phrase = InputBox("Saisissez votre phrase ici")
If ma_phrase = "" Then Exit Sub
Documents.Add
For Each PolicesCar In FontNames
With Selection
     .InsertAfter ma_phrase
     .Font.Name = PolicesCar
     .Font.Size = 10
     .InsertAfter vbTab & PolicesCar & vbCrLf
     .MoveStartUntil vbTab
     .Font.Name = "Arial"
     .MoveDown wdParagraph, 1
End With
Next
End Sub

 

 

Statistiques

France 75,6% France
Canada 8,1% Canada
États-Unis d'Amérique 4,8% États-Unis d'Amérique

Total:

65

Pays
018273689
Aujourd'hui: 12
Hier: 68
Cette semaine: 12
Semaine dernière: 783
Ce mois: 1.951