David est un écrivain et il utilise beaucoup les vérificateurs d’orthographe, de style et de grammaire de Word. Parfois, il trouve que les suggestions de Word, pour corriger la grammaire, sont mauvaises et il a appris à les ignorer. Une chose avec laquelle il a du mal est l’utilisation de guillemets autour du dialogue.

Word ne reconnaît pas si David a laissé un guillemet à la fin ou au début d’une phrase. Il se souvient avoir utilisé un programme de traitement de texte il y a des années qui a laissé des guillemets verts sur votre document pour indiquer un guillemet manquant. Il se demande si Word peut être amené à reconnaître les guillemets manquants.

Il n’y a aucun moyen de faire cela de manière native dans Word. La raison se résume probablement au fait qu’il est presque impossible de déterminer où un devis doit commencer et se terminer. Par exemple, si vous avez un paragraphe qui contient quatre phrases et que vous placez un guillemet quelque part dans ce paragraphe, comment Word peut-il déterminer si cette marque désigne le début ou la fin d’un guillemet? S’il s’agit du début, comment Word pourrait-il savoir si la marque de fin doit être à la fin de la phrase, à la fin de la deuxième phrase ou à la fin du paragraphe? (La même énigme se produit si la citation est la citation de fin, mais la perplexité du placement s’étend vers la gauche au lieu de la droite.)

Combinez cette confusion potentielle avec le fait que le guillemet de fermeture peut même ne pas être dans le paragraphe actuel – il pourrait être à la fin d’un paragraphe ultérieur lorsque la boîte de dialogue marquée se termine réellement.

Vous pourriez, cependant, développer une macro qui ferait au moins une vérification élémentaire pour vous. La macro suivante saute au début du document et recherche le premier guillemet. Il examine ensuite tout, de ce caractère à la fin du paragraphe. Si vous utilisez des guillemets non intelligents, il vérifie essentiellement s’il existe un nombre pair de guillemets. Si vous utilisez des guillemets intelligents, il vérifie s’il existe un guillemet de fin pour chaque devis de départ. Si l’une des conditions s’avère fausse, le texte est mis en surbrillance.

Sub MarkUnevenQuotes()

Dim sRaw As String     Dim iNorm As Integer     Dim iSmart As Integer     Dim J As Long

Selection.HomeKey Unit:=wdStory     Application.ScreenUpdating = False     Selection.Find.ClearFormatting     With Selection.Find         .Text = """"

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindStop         .Format = True         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute

While Selection.Find.Found         Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend         Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend         sRaw = Selection.Text         iNorm = 0         iSmart = 0         For J = 1 To Len(sRaw)

If Mid(sRaw, J, 1) = Chr(34) Then                 If iNorm > 0 Then                     iNorm = iNorm - 1                 Else                     iNorm = iNorm + 1                 End If             End If             If Mid(sRaw, J, 1) = Chr(147) Then                 iSmart = iSmart + 1             End If             If Mid(sRaw, J, 1) = Chr(148) Then                 iSmart = iSmart - 1             End If         Next J         If iNorm > 0 Or iSmart > 0 Then             Selection.Range.HighlightColorIndex = wdYellow         End If         Selection.Collapse Direction:=wdCollapseEnd         Selection.Find.Execute     Wend     Selection.HomeKey Unit:=wdStory     Application.ScreenUpdating = True End Sub

Lorsque la macro est terminée, vous vous retrouvez avec un tas de sélections de texte en surbrillance si elles doivent être vérifiées visuellement. Cependant, la macro ne trouvera pas de guillemets de fin en dehors du paragraphe dans lequel le premier guillemet apparaît.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (13293) s’applique à Microsoft Word 2007, 2010, 2013, 2016 et Word dans Office 365.