Es soll ein manueller Seitenumbruch am letzten Zeichen einer Seite eingefügt werden.
Bisher dieses Vorbereitung mit Hand
Ist das letzte Zeichen kein Absatzzeichen, soll der dort unabhängig von allem eingefügt werden.
Dieser darf nicht auf die nächste Seite umspringen.
Dann gehe ich per Menü zum manuellen Seitenumbruch.
Ich wähle dort den Seitenumbruch.
Es wird die Linie eingefügt, die diesen Umbruch anzeigt.
Und es entsteht auf der nächsten Seite ein leerer Absatz.
Es ist also nicht wie bisher beschrieben eine Kopfzeile, die mit Format Seite Kopfzeile erstellt wird.
Ich habe ein Makro mit dem Namen modKopfZeile.bas. Der ist verführerische wegen Kopfzeile.
Deshalb war bisher von dem Begriff Kopfzeile die Rede
Mit diesem Makro wird in den oberen leeren Absatz aus einer Calc mit einem Algorithmus ein Text eingefügt.
Diese Aufgabe soll mit einem Makro gelöst werden. Das soll den Namen z. B. haben modManuUmbruch oder ähnlich bekommen.
Problem mit Tabellen
Diese Makro versagt aber, wenn über und unter einer Tabelle keine leereren Absätze vorhanden sind.
Lange Tabellen habe ich von Hand entsprechend getrennt.
Jetzt haben also alle Tabellen oben und unten einen leeren Absatz.
Problem mit Grafiken
Unterhalb einer Grafik muss immer noch ein leere Absatz sein.
Also habe ich alle Grafiken so platziert, dass die Bedingung erfüllt ist.
Problem mit den Stichworten.
Die müssten wie die Tabellen mit leeren Absätzen getrennt sein.
Da das bisher nicht möglich ist, soll das Makro beendet werden, wenn es auf Stichworte stößt.
Makrorekorder
Nach den Beschreibungen dem Buch Makrogrundlagen Band 1
habe ich diese Makro erstellt.
Wie das Wort Kind darein kommt, ist mir unklar.
Diese Makro modManuUmbruch soll letzten Endes alles bewältigen.
Ich hoffe, es lässt sich ein "Hauptmakro" erstellen, das die verschiedenen "Abschnitte" aufnimmt.
Code: Alles auswählen
REM ***** BASIC *****
sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Kind"
args1(0).Value = 3
args1(1).Name = "TemplateName"
args1(1).Value = ""
args1(2).Name = "PageNumber"
args1(2).Value = 0
dispatcher.executeDispatch(document, ".uno:InsertBreak", "", 0, args1())
end sub