Absatz zentrieren

[El Schwalmo]

Hi Alle,

sorry, falls ich etwas frage, das schon längst beantwortet ist. In diesem Fall wäre ich für einen Link dankbar.

Mein Problem: ich bearbeite gescannte Artikel, indem ich Anmerkungen in den Text schreibe. Da ich auch ab und an zitieren möchte, schreibe ich die Seitenzahlen in den Text.

Meine Lösung sieht so aus:

Sub Automatisch_Seitennummer
' *** gibt Seitennummer aus

if gzSeite = 0 then
Abfragen_Seitennummer
end if

Einfuegen ("[ " + CStr (gzSeite) + " ]")
gzSeite = gzSeite + 1

End Sub

gsSeite ist die Seitennummer als String, gzSeite als Integer, beides sind globale Variablen. Die Seite wird beim ersten Mal eingegeben, dann bei jedem Aufruf erhöht.

Einfuegen sieht so aus:

Sub Einfuegen (eingeben)
' ### Fügt eingeben an der Cursor-Position ein

Dim Doc as Object
Dim Cursor as Object

Doc = thisComponent
Cursor = Doc.GetCurrentController.ViewCursor

Cursor.String = eingeben
' übergebener Text wird an der Cursor-Position eingefügt

Cursor.CollapseToEnd ( )
' Markierung aufheben

End Sub

Nun hätte ich halt gern das, was eingefügt wird, nicht linksbündig, sondern zentriert.

Weiß jemand, wie das geht?

[komma4]

Nun hätte ich halt gern das, was eingefügt wird, nicht linksbündig, sondern zentriert.

Weiß jemand, wie das geht?

"Zentriert" ist eine Absatz-Eigenschaft.
Du musst eine Absatz-Vorlage definieren und diese dem eingefügten Text zuweisen.

Beispiel: siehe im Code von http://www.re-solutions.de/ooo/makros/g ... tListe.sxw

War es dieser Tipp?