¿Por qué algunos países prosperan y otros no? Confianza social, tecnología y desarrollo

Imagen
Confianza social, tecnología y desarrollo: ¿por qué algunos países prosperan y otros no? En los últimos años he tenido la oportunidad de visitar varios países que han marcado profundamente mi forma de ver el desarrollo económico. He estado en Japón y visité Hiroshima, una ciudad que fue destruida por una bomba atómica y que hoy es una ciudad moderna y ordenada. También visité Corea del Sur, un país que hace pocas décadas era uno de los más pobres del mundo y que hoy es líder en tecnología e innovación. Y he visto Alemania, que después de dos guerras mundiales logró reconstruirse y convertirse nuevamente en una de las economías más fuertes del mundo. Estas experiencias generan una pregunta inevitable: ¿por qué algunos países logran reconstruirse y prosperar incluso después de enormes crisis, mientras que otras regiones con grandes recursos naturales siguen enfrentando dificultades para desarrollarse? Una posible respuesta está en un concepto muy estudiado en economía...

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

API de banxico para obtener tipo de cambio utilizando Javascript

Macro en Word para automatizar documentos: genera diplomas en segundos (con código VBA)