home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch25code / frmspell.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-28  |  3.1 KB  |  88 lines
  1. VERSION 4.00
  2. Begin VB.Form frmSpell 
  3.    Caption         =   "OLE Automation with Word"
  4.    ClientHeight    =   2175
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1515
  7.    ClientWidth     =   5340
  8.    Height          =   2580
  9.    Icon            =   "frmspell.frx":0000
  10.    Left            =   1035
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   2175
  14.    ScaleWidth      =   5340
  15.    Top             =   1170
  16.    Width           =   5460
  17.    Begin VB.CommandButton cmd 
  18.       Caption         =   "Spell Check in Microsoft Word 6.0"
  19.       Height          =   420
  20.       Left            =   225
  21.       TabIndex        =   1
  22.       Top             =   1620
  23.       Width           =   4875
  24.    End
  25.    Begin VB.TextBox Text1 
  26.       Height          =   1365
  27.       Left            =   225
  28.       MultiLine       =   -1  'True
  29.       ScrollBars      =   2  'Vertical
  30.       TabIndex        =   0
  31.       Text            =   "frmspell.frx":030A
  32.       Top             =   180
  33.       Width           =   4875
  34.    End
  35. Attribute VB_Name = "frmSpell"
  36. Attribute VB_Creatable = False
  37. Attribute VB_Exposed = False
  38. Option Explicit
  39. Private Sub cmd_Click()
  40.     Text1 = SpellCheck(Text1)
  41. End Sub
  42. Private Sub Form_Load()
  43.     Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
  44. End Sub
  45. Public Function SpellCheck(ByVal IncorrectText$) As String
  46. Dim Word As Object, retText$
  47.     '**************************************************
  48.     ' OLE Automation always returns errors which can
  49.     ' usually be ignored.
  50.     '**************************************************
  51.     On Error Resume Next
  52.     '**************************************************
  53.     ' Create the Object (Word will be opened if it not
  54.     ' currently running).
  55.     '**************************************************
  56.     Set Word = CreateObject("Word.Basic")
  57.     '**************************************************
  58.     ' Change the active window to WinWord, and insert
  59.     ' the text from Text1 into Word.
  60.     '**************************************************
  61.     Word.AppShow
  62.     Word.FileNew
  63.     Word.Insert IncorrectText
  64.     '**************************************************
  65.     ' Perform a spell check.
  66.     '**************************************************
  67.     ' NOTE: Visual Basic will not regain control and
  68.     '       execute the next line until the spell
  69.     '       check is complete.
  70.     '**************************************************
  71.     Word.ToolsSpelling
  72.     Word.EditSelectAll
  73.     '**************************************************
  74.     ' Trim the trailing character from the returned text.
  75.     '**************************************************
  76.     retText = Word.Selection$()
  77.     SpellCheck = Left$(retText, Len(retText) - 1)
  78.     '**************************************************
  79.     ' Close Word and return to Visual Basic.
  80.     '**************************************************
  81.     Word.FileClose 2
  82.     Show
  83.     '**************************************************
  84.     ' Recover the memory being used by the Word object.
  85.     '**************************************************
  86.      Set Word = Nothing
  87. End Function
  88.