Aprovechando el mencionado procedimiento y la generosidad de Gabriel para listarme 160 locuciones verbales frecuentes, he diseñado un nuevo programa que resalta en un texto estas detestables locuciones. En realidad, no se resaltan las locuciones verbales en sí sino los sustantivos que acompañan al verbo, ya que me resultaba inviable recoger todas las posibles variaciones verbales de tiempo, género y número. Por ello, como en cualquier otro procedimiento que atañe al estilo, los resaltes deben considerarse como alertas para revisar, no necesariamente como palabras a eliminar o sustituir.
Aquí están, paso a paso, las instrucciones para crear el programa o macro en Word, así como para ejecutarlo. Un aviso previo, estas instrucciones deberían de funcionar en la mayor parte de los programas Word existentes, salvo en Word 2008 para Mac ya que las macros están desactivadas.
Comienzo:
1) Abre el documento Word que quieras analizar.
2) En el menú «Vista», pulsa la ficha «Macros», la que está más a la derecha.
3) En la casilla «Nombre de la macro» de la ventana que se ha abierto, escribe Locuciones_verbales y pulsa el botón «Crear».
4) Se abrirá una ventana con el editor de Visual Basic. En el cuerpo principal aparecerá algo así:
Sub Locuciones_verbales()
'
' Locuciones_verbales
'
'
End Sub
5) Borra manualmente todo el texto anterior (desde el «Sub» del comienzo hasta el del final) y, mediante copiar y pegar, incluye el texto siguiente, el que está en rojo:
Sub Locuciones_verbales()
Dim número As Integer 'Número de posibles locuciones verbales encontradas
Dim range As range
Dim I As Long
Dim TargetList
Dim Mensaje As String 'Mensaje de terminación
número = 0
Selection.WholeStory
Options.DefaultHighlightColorIndex = wdNoHighlight
Selection.range.HighlightColorIndex = wdNoHighlight
'160 posibles locuciones verbales a 19/4/2016
TargetList = Array("a cargo", "a conocer", "a favor", "a gusto", "a la aprobación", "a la elección", "a la expectativa", "a la firma", "a la inauguración", "a la liberación", "a la localización", "a la ratificación", "a la selección", "a la votación", "a prueba", "a punto", "abrigado", "adecuado", "al arresto", "al cierre", "al corriente", "al debate", "amistad", "ánimo", "añicos", "aplicable", "atención", "autorizados", _
"brillo", "brincos", _
"capaz", "colérico", "compras", "conexión", "consejo", "consideración", "contento", "contrapeso", "cuentas de", "cumplir", "curvo", _
"de acuerdo", "de comer", "de mal humor", "de más", "de pie", "de rodillas", "de viaje", "derecho", "deseoso", "detalles", "diferente", _
"efectivo", "ejercicio", "el hábito", "en circulación", "en claro", "en común", "en contra de", "en deuda", "en disposición", "en duda", "en el blanco", "en el clavo", "en guardia", "en libertad", "en manos de", "en marcha", "en orden", "en peligro", "en posesión", "en práctica", "en prisión", "en ridículo", "en su sitio", "en un aprieto", "en un error", "energía", "énfasis", "enfermo", "equivocado", "explosión", _
"fe", "fin a", "frente", "fruto", _
"hincapié", _
"igual a", "indeciso", "indicativo de", "influyente", "instrucciones", "involucrado en", _
"la decisión", "la lata", "las gracias", "líquido", "lugar a", _
"marcha atrás", "más ancho", "más caro", "más corto", "más delgado", "más duro", "más gordo", "más pobre", "más rico", _
"nervioso", _
"operativo", _
"por hecho", "por seguro", "preguntas", "publicidad", _
"referencia", "reparos", "responsable", "reverencia", _
"soporte a", "sostenido", "suficiente", _
"testimonio", "trabas", "trampa", "tras de", "trizas", "turbio", _
"un arreglo", "un baño", "un chillido", "un consejo", "un empujón", "un esbozo", "un examen", "un fallo", "un giro", "un golpe", "un pago", "un paseo", "un pedido", "un recorte", "un regalo", "un susto", "una actuación", "una actualización", "una caminata", "una carga", "una foto", "una indicación", "una lista", "una multa", "una ojeada", "una rebaja", "unas declaraciones", "uso", _
"vigilantes", "vinculante", "visible")
For I = 0 To UBound(TargetList)
Set range = ActiveDocument.range
With range.Find
.Text = TargetList(I)
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Do While .Execute(Forward:=True) = True
range.HighlightColorIndex = wdTurquoise
número = número + 1
StatusBar = "Ya he encontrado: " & número & " posibles locuciones verbales "
Loop
End With
Next
System.Cursor = wdCursorNormal
Mensaje = "HE ENCONTRADO " & número & " POSIBLES LOCUCIONES VERBALES. TE RECOMIENDO QUE COMPRUEBES SI UN VERBO PRECEDE A LAS PALABRAS RESALTADAS Y, SI FUERA ASÍ, SI ES ALGUNO DE LOS TÍPICOS DE LAS LOCUCIONES VERBALES, EN CUALQUIERA DE SUS TIEMPOS: ADQUIRIR, DAR, ESTAR, HACER, PONER, PONERSE, PROCEDER, SER Y TOMAR"
MsgBox (Mensaje)
End Sub
6) Pulsa el botón de guardar para no perder lo hecho hasta ahora y cierra el editor de Visual Basic.
7) En el menú «Vista», vuelve a pulsar la ficha «Macros» que está a la derecha.
8) En la ventana que se ha abierto selecciona la macro creada (Locuciones_verbales) hasta que en el apartado «Nombre de la macro» aparezca la macro que creamos y, en esta ocasión, pulsa la tecla «Ejecutar».
9) Esperas unos segundos y cuando se abra una ventana con el mensaje «HE ENCONTRADO ? POSIBLES LOCUCIONES VERBALES. TE RECOMIENDO QUE COMPRUEBES SI UN VERBO PRECEDE A LAS PALABRAS RESALTADAS Y, SI FUERA ASÍ, SI ES ALGUNO DE LOS TÍPICOS DE LAS LOCUCIONES VERBALES, EN CUALQUIERA DE SUS TIEMPOS: ADQUIRIR, DAR, ESTAR, HACER, PONER, PONERSE, PROCEDER, SER Y TOMAR», pulsa el botón «Aceptar».
En ese momento ya tendrás resaltadas en tu documento las palabras que, posiblemente, formen parte de alguna de las 160 locuciones verbales catalogadas por Gabriel Tojo. Repito, "posiblemente": no hay más remedio que revisar lo resaltado para confirmar que se tratan de locuciones verbales.
Esta macro la guarda Word fuera del documento analizado por lo que, cuando quieras volver a analizar otro texto no tienes que repetir el proceso completo sino solo los pasos 7 a 9.
Si os ha parecido interesante este artículo, una buena forma de reconocerlo es recomendarlo en vuestra red social preferida.
Javier,
ResponderEliminarMuchísimas gracias por incluirme en tu comentario. Las locuciones verbales son tan abundantes que parece imposible listarlas en su totalidad. Por otra parte la ventaja de la informática es que una vez hecho algo, queda hecho para siempre.
Creo que tu blog se puede convertir en una magnífica aplicación.
Se me ocurren muchas sugerencias. Por ejemplo un detector de preposiciones infladas.
Gabriel Tojo
Así es, Gabriel. Es fácil adaptar esta aplicación para resaltar cualquier conjunto de palabras o de expresiones que respondan a una tipología común. Tomo nota de tu sugerencia para desarrollar en el futuro un detector de preposiciones infladas.
EliminarGracias por pasarte por mi blog.
Muy bueno. Magnífica ayuda! Mi enjorabuena
ResponderEliminarGracias, Pedro. Espero que te sea de utilidad.
EliminarUn saludo.
Buenos días:
ResponderEliminarLo pruebo, un poco de limpieza hace falta.
Estaré atenta a las preposiciones infladas.
Muchas gracias, Javier.
Gracias a ti por atreverte a probar.
EliminarSaludos.
Oh, en el texto rojo se repite "un giro", ¿por qué?
ResponderEliminarParece y es un error, aunque no debería afectar al funcionamiento del programa.
EliminarGracias de nuevo, esta vez por ayudarme a mejorar.
Saludos.
Un recurso muy oportuno que viene que ni pintado. Muchas gracias, Javier.
ResponderEliminarMe alegro, David.
EliminarGracias por pasarte por aquí.
Gracias por compartir y por tus consejos de tener cuidado con los correctores online. Probaré las macro en mis escritos.
ResponderEliminarGracias a ti.
Eliminar