Houk, Data Analyst literario en Fundación de Isaac Asimov

Imagen
  En la novela de Fundación de Isaac Asimov aparece un personaje secundario llamado Houk , que se encarga de analizar los largos discursos de Lord Dorwin, un político imperial. Lo interesante es que, después de transcribir sus palabras, Houk procede a eliminar repeticiones, adornos y frases vagas… hasta que no queda nada de información real. Su conclusión fue clara: Dorwin no había dicho absolutamente nada. Les comparto la liga del audiolibro en spotIfy  Fundación Isaac asimov libro completo Ese momento puede considerarse como la primera representación literaria de un Data Analyst : alguien que toma información, la limpia, la procesa y detecta patrones (o, en este caso, la ausencia de ellos). Imagen de chatgpt  Houk vs. el Data Analyst moderno Lo que hace Houk: depurar discursos, detectar qué es relevante y qué no. Lo que hace un Data Analyst hoy: depurar datos, identificar patrones útiles y comunicar hallazgos. Si Houk hubiera vivido en el siglo XXI, segurame...

Macro en Word para resaltar automáticamente palabras clave en tus documentos

Si trabajas con documentos largos como contratos, políticas, reportes o tesis, probablemente sabes lo difícil que es encontrar rápidamente las palabras clave importantes.

En esta publicación te comparto una macro en Word que te permite ingresar una lista de palabras clave, y el sistema las resalta automáticamente en todo el texto, sin que tengas que buscarlas una por una.


✅ 💻 Código de la macro (copia y pega en Word)

Sub ResaltarPalabrasClave()
    Dim palabras As String
    Dim palabra As Variant
    Dim rng As Range
    Dim respuesta As Integer

    ' Solicitar las palabras clave al usuario
    palabras = InputBox("Escribe las palabras clave que deseas resaltar, separadas por comas:" & vbCrLf & _
                        "Ejemplo: pago, plazo, obligación", "Palabras clave")

    If palabras = "" Then Exit Sub ' Salir si no se ingresa nada

    ' Convertir en array de palabras clave
    Dim lista() As String
    lista = Split(palabras, ",")

    ' Recorrer cada palabra
    For Each palabra In lista
        Set rng = ActiveDocument.Content
        With rng.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = Trim(palabra)
            .Replacement.Highlight = True
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = True
            .Replacement.Text = Trim(palabra)
            .Execute Replace:=wdReplaceAll
        End With
    Next palabra

    MsgBox "Las palabras clave fueron resaltadas exitosamente.", vbInformation
End Sub

✅ 🧰 Cómo usar esta macro paso a paso

1. Abre Word y presiona Alt + F11 para abrir el editor de macros (VBA)


2. Inserta un nuevo módulo (Insertar > Módulo)


3. Pega el código anterior


4. Guarda tu documento como .docm


5. Ejecuta la macro con Alt + F8 → selecciona ResaltarPalabrasClave




Les comparto un video donde explico como ejecutar la macro y ver el resultado





Si necesitan ajustar esta macro para otras actividades o crear una nueva , puedes contactarnos a zelideth27@gmail.com

Comentarios

🚀 Mantener este blog funcionando requiere tiempo y café. ¡Puedes contribuir con uno aquí!

Entradas más populares de este blog

Guía Práctica: Ejemplo Completo de ASPX para Desarrolladores Web

📊 Automatiza tu trabajo: Convierte tablas de Word a Excel con una macro

API de banxico para obtener tipo de cambio utilizando Javascript