Spellingscontrole in textboxen op Userform

[SjonR]

Dames en Heren,

Is het mogelijk om ingevoerde tekst in textboxen op een userform direct te checken op spelling?

Met andere woorden: Kunnen de rooie streepjes onder de tekst al in het userform verschijnen?

En als het kan, weet iemand daar dan ook code voor? Het gaat om zes textboxen.

Gr.

Sjon

 

[OctaFish]

Je kunt wel wat verzinnen, al zou ik niet weten hoe je de kleur van de lijn rood krijgt. Dan zou je de hele tekst namelijk rood moeten maken.

Private Sub TextBox4_AfterUpdate()
    Spellertje Me.TextBox4
End Sub

Private Sub TextBox5_AfterUpdate()
    Spellertje Me.TextBox5
End Sub

Private Function Spellertje(tekstvak As Control) As Boolean
    If Not Application.CheckSpelling(tekstvak.Value) Then
        Spellertje = True
    Else
        Spellertje = False
    End If
    tekstvak.Font.Underline = Spellertje
End Function

 

[OctaFish]

Krijg je zoiets:

Private Function Spellertje(tekstvak As Control) As Boolean
    If Not Application.CheckSpelling(tekstvak.Value) Then
        Spellertje = True
        tekstvak.ForeColor = vbRed
    Else
        Spellertje = False
        tekstvak.ForeColor = vbBlack
    End If
    tekstvak.Font.Underline = Spellertje

End Function

 

[gast0660]

Kan je ook eens proberen

Private Sub TextBox1_AfterUpdate()
Dim words() As String
words = Split(TextBox1.Text, " ")
Application.DisplayAlerts = True
For i = LBound(words) To UBound(words)
  If Not Application.CheckSpelling(words(i)) Then
    MsgBox "Woord is niet correct: " + words(i)
  End If
Next
End Sub

 

[SjonR]

thanks

Octafish,

Bedankt voor de code. Werkt wel, maar geeft bij 1 spelfout niet alleen een lijn onder het foute woord, maar onder gehele tekst.

Aangezien sommige termen die ik gebruik niet in de woordenlijst staan, zal ik deze lijn nooit kunnen wegpoetsen.

Het zal dus F7 worden als de tekst al in het werkblad staat.

Gr.

Sjon