Nathan se encuentra con frecuencia con un problema con personas que capitalizan los títulos de los puestos (por ejemplo, «El Gerente de Finanzas proporcionará …​») en los documentos.

A él le gustaría una macro para verificar cada uso de un título gerencial y ponerlo en minúsculas, a menos que haya una razón válida para ponerle las iniciales en mayúsculas a la primera palabra cuando el título comienza una oración. Se pregunta si es posible, sin ingresar los treinta títulos gerenciales, configurar un comodín para que coincida con cualquier frase de dos palabras donde la segunda palabra sea «gerente» o «gerentes».

Es posible realizar una búsqueda con comodines para encontrar los tipos de instancias que está buscando. Todo lo que necesita hacer es realizar una búsqueda avanzada, asegurarse de que la casilla de verificación Usar comodines esté seleccionada y luego usar este patrón en el campo Buscar qué:

<[A-Za-z][a-z]{1,}>^32[Mm]anager*>

El patrón encontrará dos palabras donde la segunda palabra es gerente o gerentes. Encontrará las palabras si ambas o cualquiera de las palabras están en mayúscula o si ambas palabras están en minúsculas.

El problema es que no es posible cambiar una palabra que se ha encontrado usando comodines a minúsculas. Esto significa que deberá inspeccionar manualmente lo que se encuentre y luego realizar los cambios necesarios a mano. Si solo tiene que hacer esto de vez en cuando, no es demasiado oneroso porque el cuadro de diálogo Buscar y reemplazar no es modal. (Eso significa que puede dejar el cuadro de diálogo abierto en su pantalla mientras realiza una edición en el documento, luego haga clic en Buscar siguiente en el cuadro de diálogo para buscar la siguiente aparición coincidente).

Si necesita hacer tales cambios con bastante frecuencia, la única alternativa es crear una macro que haga los cambios por usted. La siguiente macro busca el mismo patrón anotado anteriormente y luego cambia correctamente las mayúsculas de los títulos de trabajo. La macro busca títulos de trabajo compuestos por dos palabras, siendo la segunda palabra «gerente», «gerente», «gerentes» o «gerentes». Luego, elimina las mayúsculas de las palabras a menos que el título comience una oración, en cuyo caso solo elimina las mayúsculas de la segunda palabra.

Sub FixManagerCapitalisation()

Dim aRange As Range     Dim bRange As Range

With Selection.Find         .ClearFormatting         .Text = "<[A-Za-z][a-z]{1,}>^32[Mm]anager*>"

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindAsk         .MatchCase = False         .MatchWildcards = True         Do While .Execute             Set aRange = Selection.Range             Set bRange = Selection.Range             bRange.MoveEnd unit:=wdSentence             If bRange.Text <> Selection.Sentences(1).Text Then                 aRange = LCase(aRange.Words(1).Text) & Trim(aRange.Words(2))

End If             aRange = aRange.Words(1) & Trim(LCase(aRange.Words(2).Text))

aRange.Start = aRange.End             aRange.Select             .ClearFormatting         Loop     End With End Sub

_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 (13080) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365.