Advanced VB/Office Guru™ SpellChecker™

[RobDog888]

If your using Access only then you dont need any of the code other then using Access' built in spell checking.

Private Sub SpellMe()
    Application.DoCmd.RunCommand acCmdSpelling
End Sub

[Oliver1]

Sorry, getting confused in my old age, anyway the problem with that is it automatically checks the whole form which I don't want, as the form in question is huge.
Currently I spell check like so.

Public Function Spellcheck(TextStr As String) As String
  
     Set WordApp = CreateObject("Word.Application")
     WordApp.Documents.Add
     Dim wordrange As Word.Range
     Set wordrange = WordApp.ActiveDocument.Range(0, 0)
     wordrange.Text = TextStr
     WordApp.Visible = True
     WordApp.Activate
     wordrange.CheckSpelling , , True
     wordrange.CheckGrammar
     Spellcheck = wordrange.Text
     wordrange.Text = ""
     WordApp.Documents.Close (False)
     WordApp.Quit
     Set WordApp = Nothing
End Function

But this has odd glitches which I was hoping your code would sort out.