deutsches Forum rund um Apache OpenOffice und LibreOffice
https://oooforum.de/
Nein.Ludwig von Nösel hat geschrieben:Gibt es eine Funktion in Writer 3 um zwei markierte Wörter
per Menübefehl oder Shortcut oder Mausklick zu tauschen?
Siehst Du hier etwa http://www.openoffice.org/de/ das Writer 200,00 Euro kostet ?Ludwig von Nösel hat geschrieben:Ich hab 200,- Euro für Writer bezahlt.
Dann Schreibe doch bitte, wie das bei Word geht. In der Version 2002 habe ich dafür keine Option gefunden.Ludwig von Nösel hat geschrieben: In Word geht das.
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