كيف اضع مدقق الوورد في التكست؟

ضع الكود التالي في موديول جديد:

Global objWord As Object

Global bSelected As Boolean

الكود اللازم:

On Error GoTo ERRC



Set objWord = CreateObject("Word.Basic")

objWord.FileNew

objWord.EditClear

' spell check only the selected text

If Text1.SelText <> "" Then

bSelected = True

objWord.Insert Text1.SelText

Else 'spell check all text in the box.

objWord.Insert Text1.Text

End If

objWord.StartOfDocument

objWord.EndOfDocument (1)

objWord.ToolsSpelling

objWord.StartOfDocument

objWord.EndOfDocument (1)

objWord.EditCut

With Text1

If bSelected Then

.Text = Left$(.Text, .SelStart) & Clipboard.GetText(1) & Right$(.Text, Len(.Text) - (.SelStart + .SelLength))

Else

.Text = Clipboard.GetText(1)

End If

' closes MS Word

objWord.FileClose (2)

.SetFocus

End With

objWord.FileQuit

Set objWord = Nothing

Text1.SetFocus

Exit Sub

ERRC:

Resume Next



' Note: large amounts of text will cause MS Word to ask if you want to save what's in the clipboard for later use.

' This works for Rich Text Boxes and in Word 2000.

للاسف لا استطيع انشاء مشروع لتوضيح استخدامه لك فالوورد غير موجود على النظام

بالتوفيق

;)

بس الكود ما يشتغل

ما هو الحدث الذي تستخدمه معه ؟

ما هو الحدث المناسب له؟