Les documents contiennent souvent de nombreux mots qui sont volontairement très similaires les uns aux autres. Par exemple, vous pouvez avoir un document qui fait référence à une série de numéros de pièce, et les numéros de pièce sont tous très similaires les uns aux autres. Ou vous pouvez référencer un groupe de noms de fichiers dans lequel la partie de base du nom est le même mot, mais chaque nom de fichier a un suffixe qui est un nombre, tel que le suivant:

Widget01 Widget02 Widget03 Widget04 Widget05

Si jamais vous avez besoin d’incrémenter les nombres dans votre document, le processus peut être très fastidieux et sujet aux erreurs à faire à la main.

(En fonction, bien sûr, du nombre de noms que vous devez changer.) Cela signifie que la tâche est un candidat parfait pour être effectuée par une macro.

Par exemple, la macro suivante, BumpNumbers, recherchera toutes les instances du mot Widget suivies immédiatement d’un nombre à deux chiffres.

Le nombre sera alors incrémenté.

Sub BumpNumbers()

Dim J As Integer     Dim sFindText As String     Dim sReplaceText As String

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

For J = 98 To 1 Step -1         sFindText = "Widget" & Right("00" & Trim(CStr(J)), 2)

sReplaceText = "Widget" & Right("00" & Trim(CStr(J + 1)), 2)

Selection.Find.Text = sFindText         Selection.Find.Replacement.Text = sReplaceText         Selection.Find.Execute Replace:=wdReplaceAll     Next J End Sub

De toute évidence, cette macro est adaptée à un besoin spécifique – le mot Widget suivi d’un nombre à deux chiffres. Si vous devez modifier la macro pour l’adapter à vos besoins de numérotation, vous pouvez le faire en modifiant la boucle For …​ Next (pour qu’elle ne passe pas de 98 à 1) ou en changeant le texte recherché (qui est attribué à la variable sFindText).

_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 (12121) s’applique à Microsoft Word 2007, 2010, 2013 et 2016. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu de Word ici:

link: / word-Bumping_Numbers_in_a_Document [Bumping Numbers in a Document].