Zikica a un document contenant un certain nombre de sélections de texte au format rouge. Il aimerait avoir un moyen de sélectionner toutes les instances du texte rouge et de copier ce texte dans un nouveau document. Il se demande si cela est mieux fait avec une macro ou s’il existe une autre façon d’accomplir la tâche.

Avant de commencer à utiliser une macro pour accomplir la tâche, examinons quelques façons de le faire sans utiliser de macro. La première consiste à utiliser les fonctionnalités de recherche et de remplacement de Word en suivant ces étapes:

  1. Ouvrez un nouveau document. (Ceci est le document dans lequel vous allez copier votre texte rouge.)

  2. Revenez à votre document d’origine.

  3. Appuyez sur Ctrl + H. Word affiche l’onglet Remplacer de la boîte de dialogue Rechercher et remplacer.

  4. Cliquez sur l’onglet Rechercher.

  5. Cliquez sur le bouton Plus, s’il est disponible. La boîte de dialogue s’agrandit.

(Voir la figure 1.)

  1. Si le bouton Aucun formatage est disponible, cliquez dessus. Cela supprime tout formatage que vous avez pu rechercher précédemment.

  2. Assurez-vous que la zone Rechercher est vide.

  3. Cliquez sur le bouton Format, puis sur Police. Word affiche la boîte de dialogue Rechercher une police. (Voir la figure 2.)

  4. Cliquez sur la liste déroulante Couleur de police et choisissez la nuance de rouge que vous avez utilisée dans votre document.

  5. Cliquez sur OK pour fermer la boîte de dialogue Rechercher une police. Word affiche les informations de couleur juste sous la zone Rechercher.

  6. Cliquez sur la liste déroulante Rechercher dans et choisissez Document principal. Word sélectionne toutes les instances du texte rouge dans le document et vous montre dans la boîte de dialogue le nombre d’instances trouvées.

  7. Cliquez sur Fermer pour fermer la boîte de dialogue Rechercher et remplacer. Toutes les instances de texte rouge doivent toujours être sélectionnées.

  8. Appuyez sur Ctrl + C. Cela copie tout le texte dans le Presse-papiers.

  9. Basculez vers le nouveau document.

  10. Appuyez sur Ctrl + V. Word colle tout le texte rouge dans le nouveau document.

Vous pouvez également utiliser Rechercher et remplacer d’une manière différente pour arriver à une solution similaire. Dans cette approche, vous commencez par faire une copie du document, puis faites votre travail avec cette copie:

  1. Appuyez sur Ctrl + H. Word affiche l’onglet Remplacer de la boîte de dialogue Rechercher et remplacer.

  2. Cliquez sur le bouton Plus, s’il est disponible. La boîte de dialogue s’agrandit.

(Voir la figure 3.)

  1. Assurez-vous que la zone Rechercher est vide et que le point d’insertion se trouve dans cette zone.

  2. Cliquez sur le bouton Format, puis sur Police. Word affiche la boîte de dialogue Rechercher une police.

  3. Cliquez sur la liste déroulante Couleur de police et choisissez Automatique.

  4. Cliquez sur OK pour fermer la boîte de dialogue Rechercher une police. Word affiche les informations de couleur juste sous la zone Rechercher.

  5. Assurez-vous que la case Remplacer par est vide.

  6. Cliquez sur Remplacer tout. Word affiche une boîte de dialogue vous informant du nombre de remplacements effectués.

  7. Cliquez sur OK pour fermer la boîte de dialogue d’informations.

  8. Cliquez sur Fermer pour fermer la boîte de dialogue Rechercher et remplacer.

Cette approche supprime tout le texte non rouge du document, ne laissant que le rouge. (Cela suppose que vous n’avez que du texte normal et du texte rouge dans le document. Si vous souhaitez supprimer d’autres couleurs, vous devrez répéter les étapes et spécifier une couleur différente à supprimer à l’étape 5.) L’approche est que TOUT le texte non rouge est supprimé, ce qui peut également inclure des marqueurs de fin de paragraphe, de sorte que votre texte rouge peut apparaître ensemble dans un seul paragraphe.

Une autre façon de copier le texte rouge dans un autre document consiste à contourner Rechercher et remplacer et à utiliser un outil différent. Suivez ces étapes:

  1. Ouvrez un nouveau document. (Ceci est le document dans lequel vous allez copier votre texte rouge.)

  2. Revenez à votre document d’origine.

  3. Placez le point d’insertion quelque part dans votre texte rouge.

  4. Affichez l’onglet Accueil du ruban.

  5. Dans le groupe Édition, cliquez sur l’outil Sélectionner, puis choisissez Sélectionner tout le texte avec une mise en forme similaire. Word sélectionne tout le texte rouge au format similaire dans votre document.

  6. Appuyez sur Ctrl + C. Cela copie tout le texte dans le Presse-papiers.

  7. Basculez vers le nouveau document.

  8. Appuyez sur Ctrl + V. Word colle tout le texte rouge dans le nouveau document.

Si vous devez effectuer ce type d’édition assez souvent, vous souhaiterez peut-être créer une macro qui accomplira la tâche à votre place. Il y a plusieurs façons de procéder, mais ce qui suit suffira à montrer le concept. Il crée un tableau de variables pour tout le texte rouge du document, crée un nouveau document, puis insère le texte du tableau de variables dans le nouveau document.

Sub CopyRedTextToNewDoc()

Dim i As Integer     Dim a() As Variant     Dim sFound As String

Selection.Find.ClearFormatting     Selection.Find.Font.Color = wdColorRed     With Selection.Find         .Text = ""

.Replacement.Text = ""

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

Do While Selection.Find.Found         ReDim Preserve a(i)

sFound = Selection

If Asc(Right(sFound, 1)) <> 13 Then             sFound = sFound & vbCrLf         End If

a(i) = sFound         i = i + 1         Selection.Find.Execute    Loop

Application.Documents.Add     For i = LBound(a) To UBound(a)

ActiveDocument.Range.InsertAfter a(i)

Next

' If you don't want the text in the new document to be red,     ' remove the following three lines or comment them out     Selection.WholeStory     Selection.Font.Color = wdColorRed     Selection.Collapse End Sub

_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 (379) s’applique à Microsoft Word 2007, 2010, 2013 et 2016.