Si está escribiendo macros, probablemente trabaje mucho con variables de cadena. Una operación común relacionada con las variables de cadena es la necesidad de reemplazar una aparición de caracteres en una cadena por otra. Por ejemplo, considere la siguiente cadena:

"This is my string of characters."

Es posible que desee reemplazar «de» con otra palabra, como «que tiene».

La siguiente función de propósito general puede hacer precisamente eso y mucho más:

Function RepText(sIn As String, sFind As String, sRep As String) As String     Dim x As Integer

x = InStr(sIn, sFind)

While x > 0         sIn = Left(sIn, x - 1) & sRep & Mid(sIn, x + Len(sFind))

x = InStr(sIn, sFind)

Wend     RepText = sIn End Function

Como ejemplo de cómo utilizar la función, puede hacer lo siguiente:

sTemp = "This is my string of characters."

sTemp = RepText(sTemp, "of", "that has")

Cuando se ejecuta este código, sTemp contendrá la cadena «Esta es mi cadena que tiene caracteres».

En mis rutinas, a menudo utilizo una función como RepText para eliminar espacios adicionales (reemplazando una cadena de dos espacios con una cadena de un solo espacio)

o reemplazar varios espacios con un carácter de tabulación. Cómo lo uses, por supuesto, depende completamente de ti.

Aquellos que han usado solo las últimas versiones de VBA pueden tener curiosidad por saber por qué usaría una función como RepText en lugar de la función Reemplazar incorporada. Si bien la función Reemplazar hace esencialmente lo mismo que RepText, su adición al arsenal de VBA es una ocurrencia relativamente nueva. Si sus macros tienen la más mínima posibilidad de ser utilizadas en versiones anteriores de Word, entonces el uso de Reemplazar corre el riesgo de bloquear su macro; no estará disponible en esas versiones.

_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 (811) se aplica a Microsoft Word 97, 2000, 2002 y 2003.