שאלה ב- VB, אנא עזרתכם, אנא
הקוד להלן מייצג טופס ב- VB שיש בו תיבת טקסט בשם TEXT1 וכפתור בשם COMMAND1. הקוד מאפשר כתיבת מילה בתיבת הטקסט ולחיצה על הכפתור COMMAND1 עושה בדיקת איות. איזה שינוי אני צריך להכניס על מנת שהקוד יתן פירוש המילה במקום האיות!
הקוד להלן מייצג טופס ב- VB שיש בו תיבת טקסט בשם TEXT1 וכפתור בשם COMMAND1. הקוד מאפשר כתיבת מילה בתיבת הטקסט ולחיצה על הכפתור COMMAND1 עושה בדיקת איות. איזה שינוי אני צריך להכניס על מנת שהקוד יתן פירוש המילה במקום האיות!
()Private Sub Command1_Click Dim ObjWord As Object ("Set ObjWord = CreateObject("word.application ObjWord.Visible = False ObjWord.documents.Add ObjWord.selection.Text = Text1.Text ObjWord.activedocument.checkspelling Text1.Text = ObjWord.selection.Text ObjWord.activedocument.Close savechanges:=wddonotsavechanges ObjWord.quit End Sub