Pour certains documents, vous devrez peut-être souligner des informations entre guillemets. Par exemple, pour certains documents juridiques, vous devrez peut-être trouver tout le matériel entouré de guillemets, puis souligner les informations entre les guillemets. Ceci est différent de l’écriture de prose classique, où vous utiliseriez des soulignements ou des citations, mais pas les deux.

Si vous avez besoin de rechercher tout le texte cité et de le souligner, vous pouvez utiliser la macro suivante. Il recherche les guillemets et quand il en trouve un, il souligne tout jusqu’au guillemet suivant. Notez qu’il ne soulignera pas réellement les guillemets eux-mêmes.

Sub UnderlineQuoted()

Dim bDelQuotes As Boolean     Dim bMvRt As Boolean     Selection.HomeKey Unit:=wdStory

' controls deletion of quote marks     bDelQuotes = False          With Selection.Find         .ClearFormatting         .Text = Chr(34)

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindStop         .Execute     End With

While Selection.Find.Found         Selection.MoveRight Unit:=wdCharacter, Count:=1         ' switch on selection extend mode         Selection.ExtendMode = True         bMvRt = True         ' find second quote of this pair         Selection.Find.Execute         If Selection.Find.Found Then             Selection.MoveLeft Unit:=wdCharacter, Count:=1             If Len(Selection.Range.Text) > 0 Then                 ' make it underlined                 Selection.Font.Underline = True                 ' delete quote marks, if appropriate                 If bDelQuotes Then                     Selection.Cut                     Selection.TypeBackspace                     Selection.Delete Unit:=wdCharacter, Count:=1                     Selection.Paste                     bMvRt = False                 End If             End If         End If         Selection.ExtendMode = False         If bMvRt Then             Selection.Collapse Direction:=wdCollapseEnd             Selection.MoveRight Unit:=wdCharacter, Count:=1         End If         Selection.Find.Execute     Wend End Sub

Faites attention au réglage de la variable bDelQuotes. Si la valeur est False (comme ici), les guillemets eux-mêmes ne sont pas supprimés par la macro. Si vous modifiez la valeur de la variable sur True, la macro supprime les guillemets dans le document. Notez qu’il ne supprime les guillemets que s’il souligne le texte entre ces guillemets.

_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 (1589) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:

lien: / wordribbon-Underlining_Quoted_Text [Souligner le texte cité].