von RobertG » So, 09.03.2014 19:55
Hallo Airlinepapst,
das mit den Bildern muss auch in Access gehen. Ich weiß, dass bei uns in der Schulverwaltungsdatenbank (Access, vorgeschrieben vom Land) auch die Bilder der Schüler und Schülerinnen verwaltet werden.
Hier trotzdem noch einmal das Makro in leicht geänderter Fassung, da der Link da ein kleines Problem hatte und auch die richtigen Worte anzeigte:
Code: Alles auswählen
SUB Spellcheck
Dim s() As Variant
Dim vReturn As Variant, i As Integer
Dim emptyArgs(0) as new com.sun.star.beans.PropertyValue
Dim aLocale As New com.sun.star.lang.Locale
aLocale.Language = "de"
aLocale.Country = "DE"
s = Array("di", "Herr","Frau", "die")
'http://api.openoffice.org/common/ref/com/sun/star/linguistic2/XSpellChecker.html
DIM vSpeller AS VARIANT
vSpeller = createUnoService("com.sun.star.linguistic2.SpellChecker")
FOR i = LBound(s()) TO UBound(s())
vReturn = vSpeller.isValid(s(i), aLocale, emptyArgs())
IF vReturn = False THEN
vReturnS = vSpeller.spell(s(i), aLocale, emptyArgs())
sAlternativen = vReturnS.Alternatives
FOR a = 0 TO UBound(sAlternativen)
sAlternative=sAlternative+vReturnS.Alternatives(a)+chr(13)
NEXT
MsgBox "Rechtschreibprüfung: Das Wort '" & s(i) & "' ist vermutlich falsch. " &chr(13)& "Alternativvorschläge: " &chr(13)& sAlternative
END IF
sAlternative=""
Next
END SUB
Ich weiß nur nicht, wie ich an die Einträge der Autokorrektur statt an die des Wörterbuches komme. Dann wäre auch die Autokorrektur bei einem Formular kein Problem. Du möchtest ja Kürzel bei einem entsprechend längeren Text schreiben, oder sehe ich das falsch?
Gruß
Robert
Hallo Airlinepapst,
das mit den Bildern muss auch in Access gehen. Ich weiß, dass bei uns in der Schulverwaltungsdatenbank (Access, vorgeschrieben vom Land) auch die Bilder der Schüler und Schülerinnen verwaltet werden.
Hier trotzdem noch einmal das Makro in leicht geänderter Fassung, da der Link da ein kleines Problem hatte und auch die richtigen Worte anzeigte:
[code]
SUB Spellcheck
Dim s() As Variant
Dim vReturn As Variant, i As Integer
Dim emptyArgs(0) as new com.sun.star.beans.PropertyValue
Dim aLocale As New com.sun.star.lang.Locale
aLocale.Language = "de"
aLocale.Country = "DE"
s = Array("di", "Herr","Frau", "die")
'http://api.openoffice.org/common/ref/com/sun/star/linguistic2/XSpellChecker.html
DIM vSpeller AS VARIANT
vSpeller = createUnoService("com.sun.star.linguistic2.SpellChecker")
FOR i = LBound(s()) TO UBound(s())
vReturn = vSpeller.isValid(s(i), aLocale, emptyArgs())
IF vReturn = False THEN
vReturnS = vSpeller.spell(s(i), aLocale, emptyArgs())
sAlternativen = vReturnS.Alternatives
FOR a = 0 TO UBound(sAlternativen)
sAlternative=sAlternative+vReturnS.Alternatives(a)+chr(13)
NEXT
MsgBox "Rechtschreibprüfung: Das Wort '" & s(i) & "' ist vermutlich falsch. " &chr(13)& "Alternativvorschläge: " &chr(13)& sAlternative
END IF
sAlternative=""
Next
END SUB
[/code]
Ich weiß nur nicht, wie ich an die Einträge der Autokorrektur statt an die des Wörterbuches komme. Dann wäre auch die Autokorrektur bei einem Formular kein Problem. Du möchtest ja Kürzel bei einem entsprechend längeren Text schreiben, oder sehe ich das falsch?
Gruß
Robert