vb6 - VB6.0 MDI スペル チェッカー

Question

MDI の親フォームと子フォームを使用した VB6.0 プロジェクトがあります。次に、その子フォームのいくつかのテキスト ボックスでスペルと文法をチェックする必要があります。

コード例を手伝ってください。

Answer 1

TachyonのスペルチェッカーのようなプロのActiveXコンポーネントのライセンスを取得できます。ここでリストを見つけました。

前提条件としてクライアントマシンにインストールされたMicrosoftWordを要求できる場合は、Wordのスペルチェッカーを使用できます。

Dim objWord As Object
Dim objDoc  As Object

Dim strResult As String

' // Create a new instance of word Application

Set objWord = CreateObject("word.Application")

Select Case objWord.Version
   ' // Office 2000
   Case "9.0"
      Set objDoc = objWord.Documents.Add(, , 1, True)

   ' // Office XP
   Case "10.0"
      Set objDoc = objWord.Documents.Add(, , 1, True)

   ' // Office 97
   Case Else ' Office 97
      Set objDoc = objWord.Documents.Add

End Select

objDoc.Content = Text1.Text
objDoc.CheckSpelling

strResult = Left(objDoc.Content, Len(objDoc.Content) - 1)

If Text1.Text = strResult Then
    ' // There were no spelling errors, so give the user a
    ' // visual signal that something happened

    MsgBox "The spelling check is complete.", vbInformation + vbOKOnly
End If

この記事には、MSWordのスペルチェッカーを呼び出す方法に関する別の良い例があります。