Hi Mansur, Bist Du weitergekommen?
Claudius > -----Original Message----- > From: Offensiv-Medien [Mansur Esmann] > [mailto:[EMAIL PROTECTED]] > Sent: Freitag, 7. Dezember 2001 16:38 > To: AspGerman Kaffeehaus > Subject: [aspdecoffeehouse] AW: RE: AW: RE: AW: RE: AW: RE: > Nochmal Word --> Language > > > > > Nicht aufregen... Im Zweifelsfall hast immer Du schuld... ;-) > > Hallo, > > Ja wie soll ich Dir den Code schicken? > Das Makro geht ja nicht... > Aber so quick and dirty einfach hier unten. > Aber nicht aufregen ... vor lauter basteln schaut er ziemlich > dirty aus :-) > > Danach ist der Code nochmal nur in ASP. Kann aber sein, da� ein paar > �nderungen im VBA-Code drinnen sind, die im ASP fehlen > > 'Dimension object variables > Dim objWord 'as Word.Application > Dim objDocument 'as Word.Document > Dim objErrors 'as Word.ProofreadingErrors > Dim objError 'as Word.Range > Dim wdSuggestions 'as Word.SpellingSuggestions > Dim wdSuggestion 'as Word.SpellingSuggestion > Dim strSubmission, strModified, intCounter > Dim WebServObj > Dim language, myLang, myThes, fehlertext, vorschlag > Const wdDoNotSaveChanges = 0 > > > > > 'Capture submitted text from Form or QueryString > > strSubmission = TextBox3.Value > language = 1031 > > > > 'Launch Word and create a new document > Set objWord = CreateObject("Word.Application") > Set objDocument = objWord.Documents.Add > > 'Insert the user's submitted text into the document > objDocument.Range.Text = CStr(strSubmission) > objDocument.Range.LanguageID = language > > TextBox1.Value = objDocument.Range.LanguageID > > > > 'Retrieve and display spelling errors > Set objErrors = objDocument.SpellingErrors > If objErrors.Count Then 'there are errors > > For Each objError In objErrors > 'Display the misspelled word > > vorschlag = "" > fehlertext = objError.Text > 'Get spelling suggestions for the word > Set wdSuggestions = _ > objWord.GetSpellingSuggestions(objError.Text) > If wdSuggestions.Count < 1 Then > ListBox1.AddItem (fehlertext & " " & "Keine Vorschl�ge") > Else > intCounter = 0 > For Each wdSuggestion In wdSuggestions > intCounter = intCounter + 1 > strModified = Replace(strSubmission, _ > objError.Text, wdSuggestion.Name, 1, 1) > vorschlag = vorschlag & " | " & wdSuggestion.Name > Next > ListBox1.AddItem (fehlertext & ": " & vorschlag) > End If > > Next > TextBox2.Value = objErrors.Count > MsgBox ("Fertig") > Else 'no errors were found > MsgBox "Keine Fehler gefunden." > End If > > 'Close running instance of Word and destroy objects > objWord.Quit wdDoNotSaveChanges > Set objDocument = Nothing > Set objWord = Nothing > Set objErrors = Nothing > Set wdSuggestions = Nothing > > > > ---- Nun ASP > <% > > > 'Dimension object variables > dim objWord 'as Word.Application > dim objDocument 'as Word.Document > dim objErrors 'as Word.ProofreadingErrors > dim objError 'as Word.Range > dim wdSuggestions 'as Word.SpellingSuggestions > dim wdSuggestion 'as Word.SpellingSuggestion > dim strSubmission, strModified, intCounter > dim WebServObj > dim language, myLang, myThes > const wdDoNotSaveChanges = 0 > > ' Get the IIsWebService Admin Object > Set WebServObj = GetObject("IIS://localhost/W3svc/4") > ' Enable the AspAllowOutOfProcComponents Parameter > WebServObj.Put "AspAllowOutOfProcComponents", True > > ' Save the changed value to the metabase > WebServObj.SetInfo > 'danach den Server neu starten!!!! > > > 'Capture submitted text from Form or QueryString > > strSubmission = request.form( "text" & right( > request.querystring("FeldID"),1 ) ) > language = 1031 > > 'Echo submission back to the user > with response > .write "<b>Korrektur-Text:</b><br>" > .write """ & strSubmission & ""<br><br>" > end with > > 'Launch Word and create a new document > set objWord = server.createObject("Word.Application") > set objDocument = objWord.documents.add > > 'Insert the user's submitted text into the document > objDocument.Range.text = cstr(strSubmission) > objDocument.Range.languageID = language > > response.write(objDocument.Range.languageID) > With objDocument > If .LanguageDetected = True Then > > .LanguageDetected = False > .DetectLanguage > > Else > .DetectLanguage > End If > If .Range.LanguageID = language Then > response.write("Das ist ein deutsches Dokument" & > objDocument.Range.languageID) > Else > response.write("Das ist KEIN deutsches Dokument " & > objDocument.Range.languageID) > End If > End With > > > 'Retrieve and display spelling errors > set objErrors = objDocument.spellingErrors > if objErrors.count then 'there are errors > with response > .write "<table><tr><td><b>Fehler: " > .write "</b></td><td><b>Vorschl�ge</b></td></tr>" > end with > for each objError in objErrors > 'Display the misspelled word > response.write "<tr valign=top><td>" > response.write objError.Text & "</td><td>" > 'Get spelling suggestions for the word > set wdSuggestions = _ > objWord.getSpellingSuggestions(objError.text) > if wdSuggestions.count < 1 then > response.write "Keine Vorschl�ge" > else > intCounter = 0 > for each wdSuggestion in wdSuggestions > intCounter = intCounter + 1 > strModified = replace(strSubmission, _ > objError.text, > wdSuggestion.name, 1, 1) > with response > 'Construct anchor tag > .write "<a href=SpellCheck.asp?" > .write "txtSubmit=" > .write > server.URLEncode(strModified) > .write " > class='error'>" & wdSuggestion.name & "</a>" > end with > 'Display a pipe-delimiter > except at the end > if intCounter < wdSuggestions.count then > response.write " | " > end if > next > end if > response.write "</td></tr>" > next > with response > 'Show the user number of errors found > .write "</table>" > .write "<br><b>" & objErrors.count > .write " Rechtschreibfehler gefunden!</b>" > end with > else 'no errors were found > response.write "<b>Keine Fehler gefunden.</b>" > end if > > 'Close running instance of Word and destroy objects > objWord.Quit wdDoNotSaveChanges > set objDocument = Nothing > set objWord = Nothing > set objErrors = Nothing > set wdSuggestions = Nothing > %> > > > | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed > | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv > | Sie k�nnen sich unter folgender URL an- und abmelden: > | > http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffee house.asp | [aspdecoffeehouse] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
