MS Access表单字段中的拼写检查代码 - 接受更改时抛出错误

Private Sub TextBox1_BeforeUpdate(Cancel As Integer)
    Dim strText As String
    Dim strSuggestion As String
    Dim iRet As Integer

    strText = Me.TextBox1.Text
    iRet = CheckSpelling(strText, strSuggestion)

    If iRet = 1 Then
        MsgBox "拼写错误: " & strSuggestion, vbExclamation, "拼写检查"
        Cancel = True
    End If
End Sub

Private Function CheckSpelling(strText As String, strSuggestion As String) As Integer
    Dim objWord As Object
    Dim objDoc As Object
    Dim objRange As Object
    Dim iRet As Integer

    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Add()
    Set objRange = objDoc.Range()

    objWord.Visible = False
    objWord.Options.CheckSpellingAsYouType = False
    objWord.Options.CheckGrammarAsYouType = False

    objRange.Text = strText
    objWord.CheckSpelling CustomDictionary:="MyCustomDictionary.dic"

    If objWord.SpellingErrors.Count > 0 Then
        strSuggestion = objWord.SpellingErrors(1).Suggestions(1)
        iRet = 1
    Else
        iRet = 0
    End If

    objDoc.Close False
    objWord.Quit
    Set objWord = Nothing

    CheckSpelling = iRet
End Function