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

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
Ambrosio
Mensajes: 24
Registrado: Lun Abr 23, 2018 6:33 pm

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

Mensaje por Ambrosio »

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

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
Avatar de Usuario
fornelasa
Mensajes: 3268
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Corrector ortográfico, poner palabras en rojo

Mensaje por fornelasa »

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) Descargado 202 veces
lo 6.2.0 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
Ambrosio
Mensajes: 24
Registrado: Lun Abr 23, 2018 6:33 pm

Re: Corrector ortográfico, poner palabras en rojo

Mensaje por Ambrosio »

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
Responder