المدقق الإملائي؟؟؟

[ياقوتة2007]

السلام عليكم
اريد استخدام القاموس الرئيسي الذي يستخدمه المدقق الإملائي
في Microsoft Office،؟؟؟ كيف لي الحصول عليه منفردا لوحده وشو هو اسمه ؟ وكيف افتحه ؟

[(li) صقر (li)]

مثال :
كأنك عملتي برنامج من 10 فورمز وانهيتيه وبعدين عملتيله سيت اب وحملتيه , بالتأكيد لن تظهر الفورمز كما هي لأنها برنامج واحد
هي العملية فيها بعض الإمكانية انك تقومي بفتح ملفات برنامج الوورد الأساسية بالفاجوال بيزك


هذا رأيي

[ياقوتة2007]

بجرب شكرا لك

[@...Khalefa]

اول شئ ان التصحيح التلقائى والاملائي لازم يكونو مثبتين فعلا في الاوفيس
http://img329.imageshack.us/img329/8118/untitledzt0.jpg

ثانيا باستخدام RichTextBox1 , Command1
واضافة الكود

Private Sub Command1_Click()
Dim objWord
Dim tmpObjWord
Dim strResults
If Len(RichTextBox1.Text) < 1 Then Exit Sub
Set tmpObjWord = CreateObject("Word.Application")
If tmpObjWord.CheckSpelling(RichTextBox1.Text) Then
MsgBox "The text spelled correctly"
Set tmpObjWord = Nothing
Exit Sub
End If
Set tmpObjWord = Nothing
Set objWord = CreateObject("Word.Application")
With objWord
.Visible = False
.********s.Add
.Selection.TypeText RichTextBox1.Text
.Options.CheckGrammarWithSpelling = False
.Options.IgnoreUppercase = False
.Active********.CheckSpelling
.Selection.WholeStory
.Selection.Copy
strResults = .Selection.Text
.Active********.Close (0)
.Quit
End With
Set objWord = Nothing
RichTextBox1.Text = Clipboard.GetText
End Sub

مع مراعاة استبدال النجوم******* بكلمة دوكيومنت
وعلى العموم الكود بالمرفقات

[ياقوتة2007]

السلام عليكم
اشكرك اخي لاجابتك جزاك الله خيرا

لكن لدي بعض الاسئله
انا سويت RichTextBox1 , Command1
وحطيت الكود في الزر
وحسب مافهمت من كود ادخل كلمة ويتم فحصها لو صحيحة او لا؟؟؟

بس تطلعلي رسالة خطأ+ مااهمية المستند الدي دكرت انا استغظت عنه بان انشئت ملف ورد فيه كلمات انجليزية (وهل يمكن عربية) خاطئة عمدا؟؟؟واستبدلت النجوم في كود باسمه...بس مافهمت ليش ملف الوورد؟؟
يعني شو فكرة برنامج انا فهمت انه ادخال وتم نستدعي التصحيح لو كلمة مدخلة غلط؟؟؟
هل ممكن تشرحلي ؟؟؟

[ياقوتة2007]

:smailes61: :smailes85:

[@...Khalefa]

اعتزر عن التاخير
التصميم مرفق

[Lightning Man]

السلام عليكم .....




ضع زر أمر , وتكست بوكس

Private Sub Command1_Click()
Text1 = SpellCheck(Text1)
End Sub
Public Function SpellCheck(ByVal IncorrectText$) As String
Dim Word As Object, retText$
On Error Resume Next 'Create the Object and open Word
Set Word = CreateObject("Word.Basic") 'Change the active window to Word,_
'and insert the text from Text1 into Word.
Word.AppShow
Word.FileNew
Word.Insert IncorrectText 'Runs the Speller Corrector
Word.ToolsSpelling
Word.EditSelectAll 'Trim the trailing character from the returned text.
retText = Word.Selection$()
SpellCheck = Left$(retText, Len(retText) - 1) 'Close the ******** and return to Visual Basic.
Word.FileClose 2
Show 'Set the word object to nothing to liberate the'occupied memory
Set Word = Nothing
End Function

[ياقوتة2007]

مشكوريين اخواني
بس هل يمكن افهم معنى كل امر؟؟؟بلعربي؟

[ياقوتة2007]

طيب هل يمكن عمل نفس الشي للحصول على معنى الكلمة التي ادخلها
متلا ادخل كلمة : اب
تطلع معاني هدي الكلمة
هل اقدر اربط هدا بقاموس اوفيس زي ماسويت في كدقق
وبدي اعرف شو فكرة العمل وشرحها لو تكرمت؟؟؟؟

[ياقوتة2007]

??????????