Office: Seitenumbruch vorziehen, falls Überschrift als letzte Zeile unten auf der Seite steht

Hallo,

ich weiß nicht, ob das möglich ist aber fragen tue ich trotzdem. Vielleicht hat jemand eine Idee...

Ich habe ein Makro in Excel VBA erstellt, das verschiedene Word-Dateien erstellt und Text darein schreibt. Je nach Eingaben des Anwenders werden diese oder jene Textbausteine verwendet oder es werden ein paar Zeilen mehr oder weniger geschrieben... Problemchen: Word schreibt u.U. eine Überschrift (z.B. "Artikel 5") unten auf der Seite und dann kommt ein Seitenumbruch. Es sieht natürlich doof aus und muss aktuell vom Anwender manuell nachgebessert werden.

Kann man irgendwas machen, damit Word den Seitenumbruch automatisch vorzieht, wenn er merkt, dass der Platz nur für eine Überschrift reichen wird??? Wenn also eine bestimmte Überschrift kommt und es sind nur noch max. 2 oder 3 Zeilen übrig auf der Seite, dann bitte Seitenumbruch... *rolleyes.gif*

Wäre das möglich? Es sind schon 2 objektive Kriterien, die sich grundsätzlich in Code umsetzen lassen sollen, oder... Ggfs. wie?

Danke für eure Hilfe.

:)

 

Hallo Lichtwelle,

"den Seitenumbruch automatisch vorzieht, wenn er merkt, dass der Platz nur für eine Überschrift reichen wird"

die integrierten Überschriftsformatvorlagen weisen automatisch diese Eigenschaften aus (siehe Bild). Wenn du in deinen Textbausteinen eigene Überschriftsformatvorlagen verwendest (nicht empfehlenswert), musst du diese Einstellungen selber vornehmen.

Auch nicht empfehlenswert ist, wenn nach den Überschriften ein Leerabsatz zwecks Abstandsregulierung gemacht wird. Dadurch werden die Einstellungen nämlich in den meisten Fällen aufgehoben.

Ebensowenig empfehlenswert wäre, die Überschriften im Format Standard zu halten (wie den gesamten anderen Text auch) und zwecks Unterscheidung nur händisch anders formatiert zu haben. Dann kann sie (Word ist nämlich eine Frau!) nicht unterscheiden, wann die Einstellungen greifen sollen und wann nicht.

 

\@Gerhard: wusste gar nicht, dass wir jetzt hier geschlechtsspezifisch formulieren *grins *grins *grins

die wegen die Textverarbeitung?*Smilie

 

Super schnell, super klar und sehr mitdenkend. Vielen Dank Gerhard!

Ich eruiere dann die Thematik der Überschriftsformatvorlagen. Ich verbeiße mich da nicht an irgendwelche eigene Vorlage sondern schaue, was verfügbar ist (vermutlich mehr als man braucht).

 

Hallo zusammen,

@ lichtwelle
"Ich eruiere dann die Thematik der Überschriftsformatvorlagen"
Als Anhaltspunkt: Word verfügt über 9 Ebenen der Überschriftsformatsvorlagen Überschrift x. Wenn du möchtest, kannst du denen auch noch eine automatische Gliederungsnummerierung verpassen (siehe dazu bei Bedarf das PDF hier: https://www.ms-office-forum.net/foru...ehreren+Ebenen . Wenn du deine Überschriften in den Autotexten so formatiert hast, würden sie beim Einfügen sich selber und die restlichen Überschriften der gleichen Ebene automatisch anpassen.

@regina,
"die wegen die Textverarbeitung?"

Nein, nein. Es ist nur so, dass ich ständig lese: "Er tut nicht, was er soll; man kann "ihm" nicht beibringen, dass.. usw. Immer nur er, er, er! wo ich mir doch so sicher bin, dass sie eine Frau ist. Ich hab so oft mit ihr zu tun ;-)

 

\@Gerhard:*grins *grins *grins

 

Hi Gerhard,

ich habe das gemacht, was du erzählst. Problemchen ist mit den vorhandenen Formaten, dass sie die Schrift auf Calibri ändern... Passt nicht so richtig in meinem Fall. Ich habe aber ein Makro aufgezeichnet mit deinem Tipp (Überschrift an dem nächsten Absatz "kleben") und den relevanten Code in mein Programm eingebaut:


Vor der Überschrift:
.Selection.ParagraphFormat.KeepWithNext = True
.Selection.ParagraphFormat.SpaceAfter = 15

Natürlich keine Leerzeile nach der Überschrift (mit dem Befehl oben wird eh für Abstand zwischen Überschrift und Absatz gesorgt).

Nach dem nächsten Absatzzeichen nach der Überschrift:
.Selection.ParagraphFormat.KeepWithNext = False
.Selection.ParagraphFormat.SpaceAfter = 0

Das funktioniert prima! *happy

Vielen Dank!

 

Hi,
die Schriftart der Formatvorlage Überschrift 1 kannst Du einfach ändern. Im Menüband, Reiter Start, einen Rechtsklick auf die Formatvorlage Überschrift 1, Ändern...