Seite 1 von 1
Wie lese ich den Seitenbereich aus? (Writer)
Verfasst: Di, 19.04.2005 16:35
von 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?
Verfasst: Di, 19.07.2005 12:11
von 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.
Verfasst: Di, 19.07.2005 18:58
von 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
Verfasst: Mi, 20.07.2005 15:13
von 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
Verfasst: Mi, 20.07.2005 16:47
von zap
Das oben war von mir. Einloggen vergessen.
zap
Verfasst: Fr, 12.08.2005 11:24
von 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.