Ich habe von OO-Basic eigentlich null Ahnung und will mir ein Makro basteln, das Folgendes tut:
Durchsuche das komplette Dokument
Wenn ein Wort kursiv ist, überprüfe, ob es mit der Rechtschreibung Latein übereinstimmt.
Wenn nein: mache das ganze Wort rot und unterlege es mit gelber Schrift.
Das erste (nach kursivem Suchen) habe ich noch mehr oder weniger hinbekommen. (Es findet irgendwie zuviel, aber immerhin findet es Kursives).
Aber an der Rechtschreibung hänge ich.
Ich versuche, mir meinen Code durch Googeln und Anpassen irgendwie zusammenzubasteln. Aber es klappt einfach nicht.
Das ist mein Code:
Code: Alles auswählen
Dim emptyArgs(0) As New com.sun.star.beans.PropertyValue
Dim aLocale As New com.sun.star.lang.Locale
aLocale.Language = "en"
vSpeller = createUnoService("com.sun.star.linguistic2.SpellChecker")
MsgBox(vSpeller.isValid("asdgsaddgsagsdg", aLocale, emptyArgs())
(Wenn mir jemand den Code fürs komplette Makro schriebe, wäre ich natürlich auch dankbar, aber fürs erste wärs mir recht, wenn jemand den Fehler bei der Rechtschreibung fände. Ich finde ihn nämlich nicht.)