MS Access 2013：通过 VBA 使用 MS Word 的语法检查

Question

（问题下方的解决方案）

我有一个访问表单，允许用户在文本框 (MYFIELD) 中输入文本。当用户退出该字段时，我已经自动设置了拼写检查选项

Private Sub MYFIELD_Exit(Cancel As Integer)
Dim strSpell
    strSpell = MYFIELD
    If IsNull(Len(strSpell)) Or Len(strSpell) = 0 Then
       Exit Sub
    End If
    With MYFIELD
        .SetFocus
        .SelStart = 0
        .SelLength = Len(strSpell)
    End With
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdSpelling
    DoCmd.SetWarnings True

End Sub

我还想启用语法检查。因为它不是在 Access 中构建的，所以我需要使用 word 的，但我不知道该怎么做。

我在forum 上找到了这段代码

1) 发布此消息的人说他的用户“将文本输入到一个大控件中。然后将该控件合并到一个 word 文档中”。我的字段只是一个长文本字段，我还能使用（或改编）下面的代码吗？

2) 如果是，我不确定如何将它与我的代码混合使用（尽管我进行了所有搜索-我不熟悉 VBA-，但我不明白如何从我的表单中调用此公共函数）：

Public Function SpellIt(ctl As Control)
   Dim wdApp As Word.Application
   Dim wdDoc As Word.Document


    On Error GoTo SpellIt_Err

   Set wdApp = New Word.Application

      If Not IsNull(ctl) Then
         Set wdDoc = wdApp.Documents.Add
         wdApp.Selection.Text = ctl
         wdApp.Dialogs(wdDialogToolsSpellingAndGrammar).Show
         If Len(wdApp.Selection.Text) <> 1 Then
            ctl = wdApp.Selection.Text
         Else
            wdDoc.Close wdDoNotSaveChanges
            wdApp.Quit
            Set wdApp = Nothing
            Exit Function
         End If
         wdDoc.Close wdDoNotSaveChanges
      End If

   wdApp.Quit
   Set wdApp = Nothing

   MsgBox "Spelling and Grammar Check Complete.", vbInformation, "Microsoft Word Spelling And Grammar:"
   Exit Function

SpellIt_Err:
    Err.Clear
    ctl.Undo
    MsgBox "We encountered an error in it's conversation with Microsoft Word regarding your comment." & vbCrLf & _
        "As a precaution, any changes made within the grammar and spelling dialog box have not been retained.", _
        vbCritical, "Spelling and Grammar Check NOT Complete:"
End Function

非常感谢您的帮助！

这里是解决方案：（我需要将ctl更改为ctrl）

Private Sub Description_Exit(Cancel As Integer)
Call SpellIt(Description)
End Sub
Public Function SpellIt(ctrl As Control)
   Dim wdApp As Word.Application
   Dim wdDoc As Word.Document


    On Error GoTo SpellIt_Err

   Set wdApp = New Word.Application

      If Not IsNull(ctrl) Then
         Set wdDoc = wdApp.Documents.Add
         wdApp.Selection.Text = ctrl
         wdApp.Dialogs(wdDialogToolsSpellingAndGrammar).Show
         If Len(wdApp.Selection.Text) <> 1 Then
            ctl = wdApp.Selection.Text
         Else
            wdDoc.Close wdDoNotSaveChanges
            wdApp.Quit
            Set wdApp = Nothing
            Exit Function
         End If
         wdDoc.Close wdDoNotSaveChanges
      End If

   wdApp.Quit
   Set wdApp = Nothing

   MsgBox "Spelling and Grammar Check Complete.", vbInformation, "Microsoft Word Spelling And Grammar:"
   Exit Function

SpellIt_Err:
    Err.Clear
    ctl.Undo
    MsgBox "We encountered an error in it's conversation with Microsoft Word regarding your comment." & vbCrLf & _
        "As a precaution, any changes made within the grammar and spelling dialog box have not been retained.", _
        vbCritical, "Spelling and Grammar Check NOT Complete:"
End Function

Answer 1

好的，您似乎对函数的实际含义感到困惑。函数的形式为Function(Arguments)，并在Sub 中调用。它不作为独立运行，不应被视为独立运行。一个已经可用的例子是MsgBox()。您调用 MsgBox 函数，该函数接受一个参数（在本例中为一个或多个参数）并将其传递给函数，将其转换为您需要的内容。

首先要做的事情。您拥有的文本框称为 MYFIELD。那是你的控制。最好不要让函数具有相同的名称。将其重命名为 Public Function ButChng(ctrl as Control)。函数本身不需要从它原来的样子去触碰。

在您的MYFIELD_Exit 子中，您需要做的就是调用该函数。所以它会这样写：

Private Sub MYFIELD_Exit(Cancel As Integer)
Call ButChng(MYFIELD) 'this puts the MYFIELD control as your variable to go through ButChng
Exit Sub

然后它应该按预期工作。