user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

 

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

Aujourd'hui799
Hier950
Cette semaine11445
Ce mois42209
Total depuis 200413200828

7
visiteurs actuellement en ligne

25 juillet 2021