OpenOffice.info

Das Makro funktioniert hier nicht.

Im Einzelschrittmodus erhalte ich in der zweiten Zeile des Macros

oViewCursor = oDok.getCurrentController().getViewCursor()

eine Fehlermeldung, wonach eine Eigenschaft oder Methode nicht gefunden worden sei.

Woran das liegen mag?

Gruss R.

[i]Nachtrag: habs eben rausgefunden. Writer neu starten (wohl inklusive Windows-Schnellstarter). Danach funktionierts. Danke ebenfalls für den Hinweis auf das Makro.[/i]

Hey super, es klappt!!
Danke für die prompte Antwort! 8)
Das Ganze lässt sich übrigens auch leicht ins Menü einbauen.
[i]Nachtrag: Dieses Skript arbeitet nur für einzelne Wörter. Tastenbelegung zB F4, man setzt den Cursor auf ein Wort, welches dann per Tastendruck ins Benutzerwb aufgenommen werden kann.[/i]

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

Mit einem Makro geht das. Ich hab es irgendwo im Netz gefonden:

[code]
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
[/code]

Diesem Makro kannst du dann eine beliebige unbesetzte Tastenkombination zuordnen.

Grüße
skraszewski[/code]

Gibt es eine entsprechende Funktion in OpenOffice 2.0? Ich jedenfalls habe nichts gefunden.

Ich verwende auch - nach aufmerksamem Durchlesen, um keine fehlerhaften Wörter ins WB zu schreiben - die Möglichkeit, alle Wörter gleichzeitig aufzunehmen.

Leider hat diese Funktion einen Nachteil: Sie nimmt nur ins Standard-Wörterbuch auf.

Ich habe sie beim Literaturverzeichnis einer umfangreichen Arbeit ausgeführt, weil ich bei den vielen Namen nicht immer wieder Fehlermeldungen haben wollte, aber diese Namen gehören natürlich nur ins speziell für diese Arbeit eingerichtete Wörterbuch.

Gibt es schon eine verbesserte Version dieses Befehls bzw. ein Makro, was das leistet?

Hallo,

da die rechtschreibprüfung ja nicht so viele worte kennt, habe ich mich inzwischen damit abgefunden, viele wörter manuell in mein eigenes Benutzerwörterbuch aufzunehmen.

Aber das ist mühsam! normales vorgehen: wort ist rot unterkringelt - mit cursor drüber fahren - rechte maustaste - aufnehmen - entsprechendes Wörterbuch auswählen - fertig.

eine Tastenkombination währe natürlich viel cooler, aber diese Befehlsfolge ist ja eigentlich kein menüeintrag, daher habe ich das bisher nicht geschafft, makro ging auch nicht.

weiss jemand rat?


grus, carl