Verschieben von Tabellenzeile wie in Word

[Thomas D]

Hallo!

Wenn ich in MS Word eine Tabellezeile A markiere und diese über eine andere B schiebe, dann wird A über B eingefügt. In OpenOffice Writer jedoch wird B mit A überschrieben. Kann ich OO so konfigurieren, dass dieses Löschen nicht passiert? Ich stelle nämlich gerade bei uns im Hotel alles auf OpenOffice um. Die Aktion des Verschiebens wird mehrmals täglich durchgeführt, womit die Direktion ein großes Pro-Argument für MS Word hätte. Wär' super, wenn ich dieses irgendwie entkräften könnte ...

[komma4]

..kann ich Dir ein einfaches Makro (gebunden an eine Tastenkombination/Schaltfläche?) als Ersatz vorschlagen?

Ich kenne keine Einstellung / keinen Tasten-Zusatz, der das Verhalten bei Einsatz der Maus umstellt.

[Thomas D]

..kann ich Dir ein einfaches Makro (gebunden an eine Tastenkombination/Schaltfläche?) als Ersatz vorschlagen?

Ja, danke - wie würde das aussehen? ...

[komma4]

kommt auf die Anforderung an:
wie soll der Inhalt in B nach der Operation aussehen: A vor oder hinter B-Inhalt stellen? Dazwischen ein Leerzeichen?

Ein Grundgerüst - ohne jede Fehlerprüfung!

Code: Alles auswählen

Sub de19271
oCur = _
 ThisComponent._
 getCurrentController()._
 getViewCursor()
 
 If Not IsEmpty( oCur.TextTable ) Then
    sZellenname = oCur.Cell.CellName 
    Zeilennummer = MID( sZellenname, 2 )
    oTxtTab = oCur.TextTable
    oQuelle = oTxtTab.getCellByName( sZellenname ) 
    sQuelle = oQuelle.getString()
    sZiel = oTxtTab.getCellByName( "B" & Zeilennummer ).getString()
   oTxtTab.getCellByName( "B" & Zeilennummer ).setString( sQuelle & sZiel )
   oTxtTab.getCellByName( "A" & Zeilennummer ).setString( "") 
 End If
End Sub

Hilft Dir das weiter?