I documenti contengono spesso molte parole che sono volutamente molto simili tra loro. Ad esempio, potresti avere un documento che fa riferimento a una serie di numeri di parte e i numeri di parte sono tutti molto simili tra loro. Oppure puoi fare riferimento a un gruppo di nomi di file in cui la parte base del nome è la stessa parola, ma ogni nome di file ha un suffisso che è un numero, come il seguente:

Widget01 Widget02 Widget03 Widget04 Widget05

Se hai bisogno di aumentare i numeri all’interno del tuo documento, il processo può essere molto noioso e soggetto a errori da eseguire manualmente.

(A seconda, ovviamente, del numero di nomi che è necessario modificare.) Ciò significa che l’attività è un candidato perfetto per essere eseguita da una macro.

Ad esempio, la seguente macro VBA, BumpNumbers, cercherà tutte le istanze della parola Widget seguita immediatamente da un numero a due cifre.

Il numero verrà quindi incrementato.

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

Ovviamente, questa macro è adattata a un’esigenza specifica: la parola Widget seguita da un numero a due cifre. Se è necessario modificare la macro per adattarla alle proprie esigenze di numerazione, è possibile farlo modificando il ciclo For …​ Next (in modo che non vada da 98 a 1) o cambiando il testo che si sta cercando (che è assegnato alla variabile sFindText).

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (814) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia della barra multifunzione di Word (Word 2007 e più tardi) qui:

Bumping Numbers in a Document.