Tool zum schnellen wechseln der Sprache

[ByteBuster]

Hallo zusammen,

gibt es eigendlich ein Tool das mir den wechsel zwischen der deutschen und englischen Rechtschreibprüfung ermöglicht ohne runter und rauf von Notes ?
Das wäre echt cool !

Uwe

[wflamme]

http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/aa6912f7bfcc22f485256cb700620bdd?OpenDocument&Highlight=0,language
...könnte helfen.

[skro]

Hallo Uwe,

wir benutzen einen Button mit folgendem Script in der Maske "Memo":

Sub Click(Source As Button)
   Dim SN As New NotesSession
   Dim ws As New NotesUIWorkspace
   Dim uiDoc As NotesUIDocument
   Dim DB As NotesDatabase
   Dim sprache(0 To 1) As String
   Dim swahl As String
   
   Set db = sn.CurrentDatabase
   Set uidoc = ws.currentdocument
   
   sprache(0) = "Englisch"
   sprache(1) = "Deutsch"
      
   swahl = ws.prompt(prompt_okcancelcombo, "Sprache wählen", "In welcher Sprache soll die Rechtshreibprüfung ausgeführt werden?", "", sprache)
   
   Select Case swahl
   Case "Englisch"
      sn.SetEnvironmentVar "SPELL_LANG", "1033", True
      sn.SetEnvironmentVar "Preference_en",",,,1033,,,,,,", True
   Case "Deutsch" '1031
      sn.SetEnvironmentVar "SPELL_LANG", "32775", True
      sn.SetEnvironmentVar "Preference_de",",,,32775,,,,,,", True
   Case Else
      Exit Sub
   End Select
   
   Call uiDoc.SpellCheck()
End Sub

Gruß
Stefan

[ByteBuster]

 
Ich danke Euch !

Da ich in der Programierung nicht so fit bin habe ich mich für das fertige Tool entschieden und das klappt wirklich prima !

Danke an Euch !  

Uwe

[ByteBuster]

  Noch eine Frage   wo bekomme ich das Francias.dic her

Uwe

[wflamme]

Hmm, da würde ich mal auf comp.groupware.lotus-notes.misc oder anderen lotus-notes usenet-foren fragen. Da sind auch ein paar Franzosen aktiv.

[MeisterLampe]

hat noch jemand das Tool, bzw. funktioniert das Tool auch mit Notes9 ?

[m3]

http://randomtechmusings.blogspot.co.at/2011/08/multiple-dictionaries-and-spell-check.html