Drama! Wörter tauschen?

[lorbass]

Gibt es eine Funktion in Writer 3 um zwei markierte Wörter
per Menübefehl oder Shortcut oder Mausklick zu tauschen?

Nein.

Gruß
lorbass

[hylli]

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

Hylli

[pmoegenb]

Ich hab 200,- Euro für Writer bezahlt.

Siehst Du hier etwa http://www.openoffice.org/de/ das Writer 200,00 Euro kostet ?

In Word geht das.

Dann Schreibe doch bitte, wie das bei Word geht. In der Version 2002 habe ich dafür keine Option gefunden.

[manese]

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: Alles auswählen

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

Alles Gute
matthias