Private Sub cmdSpellCheck_Click()
'On Error Resume Next 'Best to un-comment this while testing Dim objMsWord As Word.Application Dim strTemp As String Set objMsWord = CreateObject("Word.Application") objMsWord.WordBasic.FileNew objMsWord.WordBasic.Insert txtMessage.Text objMsWord.WordBasic.ToolsSpelling objMsWord.WordBasic.EditSelectAll objMsWord.WordBasic.SetDocumentVar "MyVar", objMsWord.WordBasic.Selection objMsWord.Visible = False ' Mostly prevents Word from being shown strTemp = objMsWord.WordBasic.GetDocumentVar("MyVar") txtMessage.Text = Left(strTemp, Len(strTemp) - 1) objMsWord.Documents.Close (0) ' Close file without saving objMsWord.Quit ' Exit Word Set objMsWord = Nothing' Clear object memory frmMain.SetFocus' Return focus To Main form End Sub |