Wie lese ich den Seitenbereich aus? (Writer)

[suavito]

Ich verändere Absatzformate mit verschiedenen Makros, möchte aber, daß diese Makros nur im normalen Textbereich funktionieren und nicht in der Kopf- und Fußzeile und nur eingeschränkt im Fußnotenbereich.

Dazu muß ich diese Bereiche irgendwie erfragen.

Mit

Dim vCursor
Dim Textbereich As String

vCursor = ThisComponent.getCurrentController().getViewCursor()

Textbereich = vCursor.???

stelle ich fest, wo sich der sichtbare Cursor befindet, und dann... ja, was dann?

Falls jemand eine Lösung weiß, die die Position des Cursors irgendwie anders erfragt - habe nichts dagegen!


Wer weiß was?

[suavito]

Ich kann die Frage auch anders formulieren, damit vielleicht klarer wird, daß sie durchaus wichtig ist:

Ich führe eine Suche im Text durch, habe dabei etwas gefunden und möchte in dem gefundenen Textbereich nun einen Cursor werkeln lassen.

Wenn das gefundene Textstück sich nun z. B. in einer Fußnote befindet, dann erzeugt die Erzeugung eines Cursors im Textbereich natürlich einen Fehler.

Vorher muß also immer die Frage: "Wo befindet sich x" stehen, wobei x der viewCursor sein kann oder ein search-Ergebnis.

[zap]

hi suavito,

das folgende Makro gibt aus, in welcher Art von Objekt der Cursor gerade steht:

Code: Alles auswählen

sub wobinich
  doc = thiscomponent
  vc = doc.currentController.viewCursor
  msgbox vc.Text.implementationName
  ' eines von:
  ' SwXBodyText (Haupttext)
  ' SwXHeadFootText (Fuss- oder Kopfzeile)
  ' SwXFootnote (Fussnote)
end sub

zap

[ykcim]

Die Lösung greift leider nicht immer.
Befindet sich der Cursor in einer Tabelle oder einem Rahmen wird swXCell oder swTextFrame gemeldet. Solche Objekte können aber auch in Kopf und Fusszeilen sein.

mfg
Michael

[zap]

Das oben war von mir. Einloggen vergessen.

zap

[suavito]

Meinen verspäteten Dank - die Forumssoftware hat mich nicht informiert, daß hier jemand geantwortet hat - für diese Tips.

Das hilft mir sehr weiter. Eventuelle Schwierigkeiten werde ich beim Testen schon herausfinden, ich hatte nur vorher überhaupt keine Idee, wie es gehen könnte.