user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

 

A l'aide d'une petite macro :

 

Public Sub ListePolice()
'macro écrite par anacoluthe
Dim MaListe, sFont
For Each sFont In FontNames
With ActiveDocument.Content.Find
.ClearFormatting
.Format = True
.Text = ""
.Font.Name = sFont
If .Execute() Then
MaListe = MaListe & sFont & vbCr
End If
End With
Next sFont
MsgBox MaListe
End Sub

 

 

Statistiques

Aujourd'hui674
Hier1323
Cette semaine15464
Ce mois60126
Total depuis 200414833103

14
visiteurs actuellement en ligne

26 mars 2023