In einer Texttabelle (Writer) in die nächste Zelle springen

[manese]

Hallo Forum,
kann mir bitte jemand einen Tipp geben, wie ich in einer Texttabelle (im Writer):

• (a) auslesen kann, in welcher Zelle sich der ViewCursor befindet und
  (b) wie ich einen Textcursor in die jeweils nächste Zelle setzen kann.

Der für Calc gültige Befehl goNext funktioniert bei der Texttabelle nicht.
Mir würde es auch reichen, wenn ich ein Makro studieren könnte,
bei dem sich jemand schon einmal mit diesem Problem auseinandergesetzt hat.

Vielen Dank schon im Voraus
matthias

[turtle47]

Hallo Matthias,

Mir würde es auch reichen, wenn ich ein Makro studieren könnte,

Reicht das hier aus:

Code: Alles auswählen

Sub GoTo_Next_Cell
    oDoc = ThisComponent
    oVC = oDoc.CurrentController.getViewCursor
    If Not isEmpty(oVC.TextTable) then
        print oVC.Cell.CellName
         oVc.gotoEnd(false)'zum Ende des Inhaltes navigieren
         oVc.goRight(1,false)'Cursor in die nächste Zelle navigieren
         if   isEmpty(oVC.Cell) then 'Wenn der Cursor jetzt ausserhalb der Tabelle ist
         MsgBox "Der Cursor ist ausserhalb der Tabelle! "
         else
        print oVC.Cell.CellName 
    End If 
    End If
End Sub

?

Auf der Seite von Michael findest Du noch mehr Information zur Navigation des Cursors.

Viel Erfolg.

Jürgen

[manese]

Hallo Jürgen,
vielen Dank für deine rasche Antwort.

Damit kann ich zumindest schon mal den ViewCursor in die nächste Zelle bringen.
Mein Problem ist aber, dass der ViewCursor eigentlich da sitzen bleiben soll, wo er ist,
und dass ich in der Nachbarzelle einen TextCursor estellen möchte.

Ich habe auch schon auf der Seite von Michael nachgeguckt,
leider ist auch da für mein Spezialproblem nichts Brauchbares dabei.

Nochmals vielen Dank
matthias