Reseña del sensor Aidex y su relación con IoT y mHealth

Imagen
En esta publicación quiero compartir mi experiencia personal utilizando el sensor de glucosa Aidex , el cual adquirí en AliExpress. Además de reseñar el dispositivo, quiero hablar sobre cómo se relaciona con el concepto de Internet of Things (IoT) , el área de mHealth (mobile health) y reflexionar sobre los posibles riesgos de seguridad asociados. ¿Qué es IoT? El Internet of Things o Internet de las Cosas se refiere a la conexión de objetos físicos a internet para recolectar, enviar y procesar datos. Estos dispositivos incluyen desde sensores y electrodomésticos inteligentes hasta automóviles conectados. En el caso del Aidex, el chip y el transmisor conectado al cuerpo forman parte de este ecosistema al enviar datos de glucosa en tiempo real a un dispositivo móvil. Mi experiencia con Aidex El kit incluye un sensor, un transmisor y la aplicación móvil. En mi caso, lo conecté con un Xiaomi Mi 13 y logré visualizar las mediciones de glucosa de forma continua en la...

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