OpenOffice.info

sub Woertertausch
''''''''''''''''''''''''''''''''''''''''''''''
'Den Viewcursor erstellen
	Dim oDoc as object
		oDoc = ThisComponent
	Dim oViewC as object
		oViewC = oDoc.getCurrentSelection()
'''''''''''''''''''''''''''''''''''''''''''''''		
'Die Werte zuweisen
	Dim oWort1, oWort2 as object
		oWort1 = oViewC.getByIndex(1)
		oWort2 = oViewC.getByIndex(2)
	Dim sWort1, sWort2 as string
		sWort2 = oWort2.String
		sWort1 = oWort1.String
'''''''''''''''''''''''''''''''''''''''''''''''		
'DieWerte tauschen	
	oWort1.setString(sWort2)
	oWort2.setString(sWort1)
end sub

Hallo Ludwig,
dein Wunsch ist zwar tatsächlich ungewöhnlich,
aber für den Writer kein wirkliches Problem.
Installiere einfach folgendes Makro,
dann kannst du das ganz nach Wunsch auf eine Taste oder ein Icon legen:

[code]sub Woertertausch
''''''''''''''''''''''''''''''''''''''''''''''
'Den Viewcursor erstellen
Dim oDoc as object
oDoc = ThisComponent
Dim oViewC as object
oViewC = oDoc.getCurrentSelection()
'''''''''''''''''''''''''''''''''''''''''''''''
'Die Werte zuweisen
Dim oWort1, oWort2 as object
oWort1 = oViewC.getByIndex(1)
oWort2 = oViewC.getByIndex(2)
Dim sWort1, sWort2 as string
sWort2 = oWort2.String
sWort1 = oWort1.String
'''''''''''''''''''''''''''''''''''''''''''''''
'DieWerte tauschen
oWort1.setString(sWort2)
oWort2.setString(sWort1)
end sub
[/code]

Alles Gute
matthias

[quote="Ludwig von Nösel"]Ich hab 200,- Euro für Writer bezahlt.[/quote]
Siehst Du hier etwa http://www.openoffice.org/de/ das Writer 200,00 Euro kostet ?
[quote="Ludwig von Nösel"]
In Word geht das.[/quote]
Dann Schreibe doch bitte, wie das bei Word geht. In der Version 2002 habe ich dafür keine Option gefunden.

'ntschuldigung, aber wo hast Du EUR 200,00 für OpenOffice Writer bezahlt?

Hylli

[quote="Ludwig von Nösel"]Gibt es eine Funktion in Writer 3 um zwei markierte Wörter
per Menübefehl oder Shortcut oder Mausklick zu tauschen?[/quote]
Nein.

Gruß
lorbass