OpenOffice.info

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

Damit kann ich zumindest schon mal den [b]ViewCursor [/b]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 [b]TextCursor [/b]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

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

Hallo Matthias,

[quote="manese"]Mir würde es auch reichen, wenn ich ein Makro studieren könnte, [/quote]
Reicht das hier aus:

[code]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[/code]
?

Auf der [url=http://www.dannenhoefer.de/faqstarbasic/cursor.html#cursor]Seite[/url] von Michael findest Du noch mehr Information zur Navigation des Cursors.

Viel Erfolg.

Jürgen

Hallo Forum,
kann mir bitte jemand einen Tipp geben, wie ich [b]in einer Texttabelle (im Writer)[/b]:
[list](a) auslesen kann, in welcher Zelle sich der ViewCursor befindet und
(b) wie ich einen Textcursor in die jeweils nächste Zelle setzen kann.[/list]
Der für Calc gültige Befehl [i]goNext [/i]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