Option Explicit

Dim mdocSpell As New Document
Dim mblnVisible As Boolean

Private Sub Form_Load()
    `Check whether application is visible;
    `used in Unload to determine whether this 
    `application started Word 
    mblnVisible = mdocSpell.Application.Visible
End Sub

`Check spelling of text box contents
Private Sub cmdSpell_Click()
    `Add text to a Word Range object
    mdocSpell.Range.Text = txtSpell
    `IMPORTANT: You must perform the following two steps
    `before using the CheckSpelling method!!
    `Be sure that Word is visible
    mdocSpell.Application.Visible = True
    `Activate Word
    AppActivate mdocSpell.Application.Caption
    `Check spelling
    mdocSpell.Range.CheckSpelling
    `Update text box with changes from Word
    txtSpell = mdocSpell.Range.Text
    `Trim off null character that Word adds
    txtSpell = Left(txtSpell, Len(txtSpell) - 1)
    `Activate this application
    AppActivate Caption
End Sub

`Clean up
Private Sub Form_Unload(Cancel As Integer)
    `Check whether this application started Word
    If mblnVisible Then
        `Close document
        mdocSpell.Close savechanges:=False
    Else
        `Shut down Word
        mdocSpell.Application.Quit savechanges:=False
    End If
End Sub

Const KEY_F7 = 118 

`Check spelling of a single word
Private Sub txtSpell_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim Corrections
    If KeyCode = KEY_F7 Then
        If txtSpell.SelLength = 0 Then
            `Select the word
            SendKeys "+^{Right}"
        End If
        `Check spelling of selection
        Set Corrections = GetSpellingSuggestions(txtSpell.SelText)
        `If misspelled, display suggestions
        If Corrections.Count Then
            frmCorrections.Display Corrections
        End If
    End If
End Sub

`Called by frmCorrections to replace text
Friend Sub Replace(Word As String)
    txtSpell.SelText = Word
End Sub

`Called by frmSpell to display suggestions from Word
Friend Sub Display(Corrections)
    Dim Word
    For Each Word In Corrections
        lstCorrections.AddItem Word
    Next Word
    `Select first suggestion
    lstCorrections.Selected(0) = True
    `Display the form
    Show vbModal
End Sub

`Replace word with selection
Private Sub cmdReplace_Click()
    frmSpell.Replace lstCorrections.List(lstCorrections.ListIndex)
    Unload Me
End Sub

`Cancel correction
Private Sub cmdCancel_Click()
    Unload Me
End Sub

Option Explicit

Dim objXL As Object

Private Sub cmdSpell_Click()
    `Use Automation to create an Excel object
    Set objXL = CreateObject("Excel.Sheet")
    `Get programmable reference (apparently a bug in Excel)
    Set objXL = objXL.Application.ActiveWorkbook.ActiveSheet
    `Copy from text box to sheet
    objXL.Range("A1").Value = txtSpell.Text
    `Check spelling
    objXL.CheckSpelling
    `Copy back to text box
    txtSpell.Text = objXL.Range("A1").Value
    `Remove object from memory
    Set objXL = Nothing
    `Be sure that this application is active
    AppActivate Caption
End Sub

Set objXL = objXL.Application.ActiveWorkbook.ActiveSheet

Private Sub cmdWords_Click()
    Dim dlg As Word.Dialog
    `Copy text into Word document
    mdocSpell.Range = txtSpell.Text
    `Create an object to hold dialog box settings
    Set dlg = mdocSpell.Application.Dialogs _
        (wdDialogDocumentStatistics)
    `Count words and characters
    dlg.Execute
    `Display results in a Label control
    Caption = Str(dlg.Words) & " words, " _
        & Str(dlg.Characters) & " characters"
End Sub

Option Explicit

Private Sub cmdAngle_Click()
    Dim objXL As Object
    `Use Automation to create an Excel object
    Set objXL = CreateObject("Excel.Sheet")
    `This solves the Excel bug mentioned earlier
    Set objXL = objXL.Application.ActiveWorkbook.ActiveSheet
    `Set known values in cells
    objXL.Range("A1").Value = txtX.Text
    objXL.Range("A2").Value = txtY.Text
    `Calculate third cell
    objXL.Range("A3").Formula = "=ATAN2(A1,A2)"
    objXL.Range("A4").Formula = "=A3*180/PI()"
    `Display results in Label controls
    lblRadians.Caption = objXL.Range("A3").Value
    lblDegrees.Caption = objXL.Range("A4").Value
    `Remove object from memory
    Set objXL = Nothing
End Sub