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'hui27
Hier2696
Cette semaine2723
Ce mois24929
Total depuis 200412923814

7
visiteurs actuellement en ligne

13 avril 2021