Patrick Wunderlich wrote:
> Ist das m�glich?
Mein Makro hat Schwierigkeiten bei der Erkennung des Wortanfangs, wenn
der Cursor in einem zusammengesetzten Wort steht (Bindestriche,
Klammern, andere Sonderzeichen).
Problemf�lle:
"Fr�h-St�ckchen"
"(uni-sexy)"
"world>europe"
Das hoffe ich noch zu kl�ren.
Befindet sich eine Textselektion im Text, so wird diese dem WB
hinzugef�gt. So k�nnen auch die o.a. Problemf�lle bearbeitet werden.
Wenn dies kein Hindernis ist:
(als neues Modul in "standard" makro bibliothek kopieren, tastaturkombi
zuweisen, nutzen):
' ---<cut>---
Sub add2dic
' sichtbares Dokument (es ist besser eines da)
oDok = StarDesktop.getCurrentComponent()
' sichtbaren cursor
oViewCursor = oDok.getCurrentController().getViewCursor()
' textcursor an stelle des sichtbaren cursors
oCur = oViewCursor.getText().createTextCursorByRange(oViewCursor)
' wenn nur Einf�gemarkierung
if oCur.IsCollapsed then
' Wort unter dem Cursor mit TC markieren
if NOT oCur.isStartOfWord() then
oCur.gotoStartofWord(FALSE)
endif
' Wortanfang bis Ende markieren
oCur.gotoEndofWord(TRUE)
' den Inhalt des TC
sWort = oCur.getString
' Ausgew�hlter Text
else
sWort = oCur.getString
end if
if Len(sWort) = 0 then
exit sub
end if
' wir haben ein Wort
' nun zweiter Teil: W�rterbuch Service und hinein damit
' service
oWBListe = createUnoService ("com.sun.star.linguistic2.DictionaryList")
' W�rterbuch (WB)
' Name des Standards: standard.dic
oWB = oWBListe.getDictionaryByName("standard.dic")
' ermitteltes Wort zum WB
' FALSE: kein negatives Wort
' "": Ersetzungstext (bei neg. Worten)
' msgbox "Worte im WB: " & oWB.count
oWB.add(sWort, FALSE, "")
' msgbox "Worte im WB: " & oWB.count
End Sub
--
re-Solutions.de Software Test Engineering Mainz Germany Europe
OOo stuff (macros, templates, icons): http://www.winnirohr.de/ooo/
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
