[RESUELTO] Corrector ortográfico, poner palabras en rojo

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...

[RESUELTO] Corrector ortográfico, poner palabras en rojo

Notapor Ambrosio » Dom Oct 28, 2018 10:22 am

Hola,

En VB puedo destacar los errores ortográficos poniendo esas palabras en color rojo. Lo hago con el siguiente código:
Código: Seleccionar todo   Expandir vistaContraer vista
Sub correct()
'    Adaptat de Joaquim Fonoll 25/01/2004
'   detecta els errors de tot el text i posa les paraules en vermell
'
    Dim MyErr, MyErrors, range1
   
    System.Cursor = wdCursorWait
    If correc = True Then
        Set MyErrors = ActiveDocument.SpellingErrors
        If MyErrors.Count <> 0 Then
        For Each MyErr In MyErrors
          MyErr.Font.ColorIndex = wdRed
        Next
        End If
        correc = False
    Else
       Set range1 = ActiveDocument.Range
       range1.Font.ColorIndex = wdAuto
       correc = True
       correct
    End If
   
    System.Cursor = wdCursorNormal
End Sub


Se puede hacer algo parecido en oooBasic?

Ambrosio
Última edición por Ambrosio el Lun Nov 12, 2018 5:37 pm, editado 1 vez en total
windows 7 // LibreOffice_5.4.5_Win_x86
Ambrosio
 
Mensajes: 19
Registrado: Lun Abr 23, 2018 6:33 pm

Re: Corrector ortográfico, poner palabras en rojo

Notapor fornelasa » Mié Oct 31, 2018 8:03 pm

Intenta con este archivo,
Es una guía de como hacerlo.
 Editado: Nota: Considero que la macro VBA que comentas no funciona. 

Saludos, Federico.
Adjuntos
EscritoR.odt
Escritor.
(12.01 KiB) 71 veces
lo 6.1.2 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
Avatar de Usuario
fornelasa
 
Mensajes: 3166
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Corrector ortográfico, poner palabras en rojo

Notapor Ambrosio » Lun Nov 12, 2018 5:36 pm

Hola,

Tus procedimientos me funcionaban muy bien (mejor que lo que habia adaptado para MS Word), pero al hacer varias pruebas me daba un error de depuración (me decía constantemente que ya estaba definido, aunque reiniciará el ordinador). Al final, eliminando "(Event)" de la definición de la función ya me funciona, eso sí como la macro que hice para Word, es decir presionando un botón para que destaque las palabras con faltas de ortografía y presionándolo otra vez una vez corregidas.
El funcionamiento de tu macro era más interesante, ya que ponía el color rojo en las palabras mal escritas y cambiaba el color a negro al momento de corregirla, pero como no he sabido encontrar cómo solventar el error de depuración he optado porque lo usen manualmente.

Muchas gracias por tu ayuda.
windows 7 // LibreOffice_5.4.5_Win_x86
Ambrosio
 
Mensajes: 19
Registrado: Lun Abr 23, 2018 6:33 pm


Volver a Macros y API UNO

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados