Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Word » Ayuda Lectura Tdah

Word - Ayuda Lectura Tdah

Volver
Nuevo Tema
<<>>
 
Vista:

Ayuda Lectura Tdah

Publicado por Carlos Espinosa (1 intervención) el 01/06/2024 10:02:00
Buenos días,
¿Hay alguna manera de poder marcar en negrita de modo automático las tres primeras letras de cada palabra de un texto completo?
Es impresionante cómo ayuda esto a la compresión y velocidad lectora para afectados por el TDAH, y hacerlo manualmente palabra por palabra se vuelve una tarea titánica.
Gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de wordexperto.com
Val: 2.194
Oro
Ha mantenido su posición en Word (en relación al último mes)
Gráfica de Word

Ayuda Lectura Tdah

Publicado por wordexperto.com (1192 intervenciones) el 01/06/2024 18:43:51
Hola, Carlos:
Aquí tienes la macro, sigue y comparte mis canales. Tienes una lista sobre accesibilidad.

1
2
3
4
5
6
7
8
9
10
Sub NegritaPrimerasTresLetras()
    Dim palabra As Range
    For Each palabra In ActiveDocument.Words
        If Len(palabra) >= 3 Then
            palabra.Start = palabra.Start
            palabra.End = palabra.Start + 3
            palabra.Font.Bold = True
        End If
    Next palabra
End Sub

Perdona, la anterior incluye a las palabras de dos letras:

1
2
3
4
5
6
7
8
9
10
Sub NegritaPrimerasTresLetras()
    Dim palabra As Range
    For Each palabra In ActiveDocument.Words
        If Len(palabra) > 3 Then
            palabra.Start = palabra.Start
            palabra.End = palabra.Start + 3
            palabra.Font.Bold = True
        End If
    Next palabra
End Sub

https://www.youtube.com/channel/UCxgRcbeR2q4PpE1Pgft74Iw



Captura
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar