Keskustelu: Koodit: VB6: Oikeinkirjoituksen tarkistus

Dim X As Object
    Set X = CreateObject("Word.Application") 'avataan Word

    With X
     .Visible = False  'laitetaan Word näkymättömäksi
     .Documents.Add  'luodaan uusi asiakirja
     .Selection.Text = Text1.Text  'kopioidaan teksti Wordiin
     .ActiveDocument.CheckSpelling  'tarkistetaan oikeinkirjoitus
    End With

    'kun oikeinkirjoitus on tarkistettu, tekstin siirto takaisin
    Text1.Text = X.Selection.Text

    With X
     .ActiveDocument.Close Savechanges:=wdDoNotSaveChanges  'suljetaan asiakirja - ei tallenneta muutoksia
     .Quit  'lopetetaan Word
    End With

    Set X = Nothing