Lorraine a menudo trabaja con transcripciones de entrevistas. Los entrevistadores pedirán a los entrevistados que deletreen sus nombres. Cuando los escribe, debe insertar guiones entre las letras para mostrar que se están deletreando, como en J-O-H-N D-O-E. Lorraine se pregunta si hay una manera de seleccionar el nombre y luego ejecutar una macro para poner el nombre en mayúscula e insertar los guiones necesarios entre las letras.

Las macros son muy adecuadas para realizar este tipo de procesamiento de texto. De hecho, probablemente haya una docena de formas en las que podría abordar el problema en su macro. La siguiente es una forma bastante sencilla de hacerlo:

Sub CapDashNames()

Dim sTemp As String     Dim sName As String     Dim J As Integer

sTemp = UCase(Selection.Range.Text)   ' Make all uppercase     If Len(sTemp) > 1 Then         sName = ""

For J = 1 To Len(sTemp) - 1             ' Add new character to name             sName = sName & Mid(sTemp, J, 1)

If Mid(sTemp, J, 1) >= "A" And Mid(sTemp, J, 1) <= "Z" Then                 ' Add a dash if character was a letter                 sName = sName & "-"

Else                 ' Character added was not a letter                 If Mid(sName, Len(sName) - 1, 1) = "-" Then                     ' If there is a dash just before non-letter,                     ' get rid of it                     sName = Left(sName, Len(sName) - 2)

sName = sName & Mid(sTemp, J, 1)

End If             End If         Next J         ' Add final character         sName = sName & Right(sTemp, 1)

Selection = sName     End If End Sub

Básicamente, la macro recorre lo que haya seleccionado y agrega un guión después de cada carácter alfabético. Si ese guión va seguido de un carácter no alfabético, el guión se elimina. (De esa manera, por ejemplo, no terminará con un guión antes o después de un espacio).

Para utilizar la macro, simplemente seleccione el nombre que desea modificar y luego ejecute la macro.

_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 (1354) se aplica a Microsoft Word 2007, 2010, 2013 y 2016.