|
|
Jest to raczej krótki, lecz opisujący wszystko przykład.
Jeśli chcemy, aby nasz program mógł sprawdzać pisownię, ale nie chce nam się pisać specjalnych funkcji i słowników(jest to trudne i pracochłonne) wystarczy użyć już gotowego słownika, który prawie każdy użytkownik Windows posiada. Chodzi mi o słownik MS Office.
Ten artykuł powie jak zaprząc do pracy ten właśnie słownik we własnej aplikacji.
Wystarczy do pustego projektu wstawić przycisk. Command Button, a następnie dodać kontrolkę TextBox jej właściwość Multiline ustawić na True, a do zdarzenia onClick Command Button wstawić poniższy kod:
Dim X As Object 'create Word object
Set X = CreateObject("Word.Application")
X.Visible = False 'ukrywa Worda
X.Documents.Add 'otwiera nowy dokument
X.Selection.Text = Text5.Text 'kopiuje tekst z programu do dokumentu Worda
X.ActiveDocument.CheckGrammar 'startuje sprawdzanie pisowni w Wordzie
Text5.Text = X.Selection.Text 'kopiuje poprawiony tekst do VB
X.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
X.Application.Quit 'zamyka Worda
Set X = Nothing 'kasuje zmienna X(tak jakby)
Przykład
I to już wszystko! 
|
|
|

  
|
|
|
|
|
|