Imprimer les fautes d'orthographe et de grammaire d'un document
1 réponse
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.
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
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
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
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