OVH Cloud OVH Cloud

Imprimer les fautes d'orthographe et de grammaire d'un document

1 réponse
Avatar
roleca7
Bonjour =E0 tous,

Je souhaite imprimer un document Word avec les fautes d'orthographe
(soulign=E9es en rouge) et les fautes de grammaire (soulign=E9es en
vert). Il n'y a aucun probl=E8me pour les voir =E0 l'affichage mais
si je les veux =E0 l'impression =E9galement. Comment faire ?

Pour l'instant je n'ai trouv=E9 que la solution de faire un Imprim
=E9cran mais j'aimerais avoir une meilleure solution que celle-ci, si
possible.

Merci d'avance.

1 réponse

Avatar
Tisane
Bonjour roleca7,

Je souhaite imprimer un document Word avec les fautes d'orthographe
(soulignées en rouge) et les fautes de grammaire (soulignées en
vert). Il n'y a aucun problème pour les voir à l'affichage mais
si je les veux à l'impression également. Comment faire ?
Pour l'instant je n'ai trouvé que la solution de faire un Imprim
écran mais j'aimerais avoir une meilleure solution que celle-ci, si
possible.


L'impression de ces "soulignés" n'étant pas prévue, voici les 4 petites
macros que j'utilise :
Les 2 premières ajoutent/enlèvent un souligné ondulé rouge aux fautes
d'orthographe.
Les 2 suivantes ajoutent/enlèvent un souligné ondulé vert aux fautes de
grammaire.
--------------------
Public Sub Orthographe()
For Each Erreur In ActiveDocument.SpellingErrors
With Erreur.Font
.Underline = wdUnderlineWavy
.UnderlineColor = wdColorRed
End With
Next Erreur
End Sub

Public Sub PasOrthographe()
For Each Erreur In ActiveDocument.SpellingErrors
With Erreur.Font
.Underline = wdUnderlineNone
End With
Next Erreur
End Sub

Public Sub Grammaire()
For Each Erreur In ActiveDocument.GrammaticalErrors
With Erreur.Font
.Underline = wdUnderlineWavy
.UnderlineColor = wdColorGreen
End With
Next Erreur
End Sub

Public Sub PasGrammaire()
For Each Erreur In ActiveDocument.GrammaticalErrors
With Erreur.Font
.Underline = wdUnderlineNone
End With
Next Erreur
End Sub
--------------------

Pour les utiliser, dans ton document, appuie sur <Alt><F11>, copie colle
telles quelles les 4 macros. Reviens dans ton document, appuie sur <Alt><F8>
pour afficher la liste des macros et exécute la macro voulue.
--
Tisane