Los documentos suelen contener muchas palabras que, a propósito, son muy similares entre sí. Por ejemplo, puede tener un documento que hace referencia a una serie de números de pieza, y los números de pieza son todos muy similares entre sí. O puede hacer referencia a un grupo de nombres de archivos en los que la parte base del nombre es la misma palabra, pero cada nombre de archivo tiene un sufijo que es un número, como el siguiente:

Widget01 Widget02 Widget03 Widget04 Widget05

Si alguna vez tiene la necesidad de incrementar los números dentro de su documento, el proceso puede ser muy tedioso y propenso a errores.

(Dependiendo, por supuesto, de la cantidad de nombres que necesite cambiar). Esto significa que la tarea es un candidato perfecto para ser realizado por una macro.

Como ejemplo, la siguiente macro de VBA, BumpNumbers, buscará todas las instancias de la palabra Widget seguida inmediatamente por un número de dos dígitos.

A continuación, se incrementará el número.

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

Obviamente, esta macro se adapta a una necesidad específica: la palabra Widget seguida de un número de dos dígitos. Si necesita modificar la macro para que se ajuste a sus necesidades de numeración, puede hacerlo cambiando el bucle For …​ Next (para que no pase de 98 a 1) o cambiando el texto que se busca (que está asignado a la variable sFindText).

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (814) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Bumping_Numbers_in_a_Document [Chocando números en un documento].