Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Word Macro police

Macro police

2 réponses
Avatar
Laora
bonjour

j'ai recopié sur la faq word cette macro

Sub ListePolicesInstallées ()
Documents.Add
For Each PolicesCar In FontNames
With Selection
.InsertAfter "ma phrase : servez un whisky au juge blond qui fume la pipe"
.Font.Name = PolicesCar
.Font.Size = 10
.InsertAfter vbTab & PolicesCar & vbCrLf
.MoveStartUntil vbTab .Font.Name = "Arial" .MoveDown wdParagraph, 1 End With
Next
End Sub

mais j'ai un soucis car elle ne fonctionne pas et je ne sais pas la corriger.
Pouvez vous m'aider ?
Merci d'avance
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Kyrill
Bonjour Laora

Essayer avec la macro disponible dans la note suivante
elle est pour Word 97 mais devraiot etre applicable sur les version
ultérieur de word
http://support.microsoft.com/kb/170970/fr

--
Bonne journée,

Kyrill

"Laora" wrote in message
news:
bonjour

j'ai recopié sur la faq word cette macro

Sub ListePolicesInstallées ()
Documents.Add
For Each PolicesCar In FontNames
With Selection
.InsertAfter "ma phrase : servez un whisky au juge blond qui fume la pipe"
.Font.Name = PolicesCar
.Font.Size = 10
.InsertAfter vbTab & PolicesCar & vbCrLf
.MoveStartUntil vbTab .Font.Name = "Arial" .MoveDown wdParagraph, 1 End
With

Next
End Sub

mais j'ai un soucis car elle ne fonctionne pas et je ne sais pas la
corriger.

Pouvez vous m'aider ?
Merci d'avance



Avatar
Circé
Bonjour,

C'est simplement les retours à la ligne qui ont sauté ! Je corrige...

Sub ListePolicesInstallées()

Documents.Add
For Each PolicesCar In FontNames
With Selection

.InsertAfter "ma phrase : servez un whisky au juge blond qui fume la
pipe"
.Font.Name = PolicesCar
.Font.Size = 10
.InsertAfter vbTab & PolicesCar & vbCrLf
.MoveStartUntil vbTab
.Font.Name = "Arial"
.MoveDown wdParagraph, 1
End With

Next

End Sub

Circé
http://faqword.free.fr


Laora a formulé ce mercredi :
bonjour

j'ai recopié sur la faq word cette macro

Sub ListePolicesInstallées ()
Documents.Add
For Each PolicesCar In FontNames
With Selection
.InsertAfter "ma phrase : servez un whisky au juge blond qui fume la
pipe" .Font.Name = PolicesCar
.Font.Size = 10
.InsertAfter vbTab & PolicesCar & vbCrLf
.MoveStartUntil vbTab .Font.Name = "Arial" .MoveDown wdParagraph, 1
End With Next
End Sub

mais j'ai un soucis car elle ne fonctionne pas et je ne sais pas la
corriger. Pouvez vous m'aider ?
Merci d'avance