[Hellraider]

Ich habe folgende Problemstellung:

Innerhalb eines Word 2003 Dokumentes möchte ich nach jeder Überschrift 2ter Ebene (bis auf die erste Überschrift) einen Zeilenumbruch oberhalb durchführen.

Mein Code sieht bisher so aus:

y = 0 'Anzahl vorhandener Überschriften 2.Ebene
ya = 0 'Anzahl aller vorgenommenen Seitenumbrüche

With ActiveDocument.Content.Find 'Ermittlung aller vorhandenen Überschriften 2.Ebene
            .ClearFormatting
            .Style = wdStyleHeading2
                Do While .Execute(FindText:="", Forward:=True, Format:=True) = True
                y = y + 1
                Loop
        End With

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1" 'Zu 1. Seite des Dokumentes wechseln
        
        For i = 0 To y
            Selection.Find.ClearFormatting
            Selection.Find.Style = ActiveDocument.Styles(wdStyleHeading2)
                With Selection.Find
                    .Forward = True
                    .Wrap = wdFindContinue
                    .Format = True
                End With
            If i > 0 Then
                Selection.Find.Execute
                With Selection.ParagraphFormat
                   .PageBreakBefore = True
                   ya = ya + 1 'für interne Zählung aller durchgeführten Umbrüche
                End With
            End If
        Next i

Probleme bereit mir derzeit folgender Code-Teil:

If i > 0 Then
                Selection.Find.Execute
                With Selection.ParagraphFormat
                       .PageBreakBefore = True
                End With
End If

Dieser sollte eigentlich bewirken, das nach der ersten Fundstelle (i=0) eben kein Zeilenumbruch vorgenommen wird, aber irgendwie klappt das nicht. Der Zähler ist beim ersten Durchlauf der If Funktion 0 und überspringt laut Überwachungsanzeige auch die Teile innerhalb der If Funktion (als erstes wird If i > 0 Then ausgeführt und dann wird zu End If gesprungen). Trotzdem wird aber ein Zeilenumbruch durchgeführt, so dass der Fehler eigentlich irgendwo innerhalb der if Funktion selbst zu suchen sein muss, aber wo?

Kann mir da jemand einen Tip geben?

[BeHo]

Hallo Stefan,

so ganz passt Dein Code nicht zu den Vorgaben.
Du schreibst von Zeilenumbruch oberhalb nach den Zweilevel-Überschriften. Dein Programm fügt dagegen Seitenumbrüche vor den Überschriften ein. Ich nehme an, dass auch dies gemeint ist, weil es doch sinnvoller erscheint.

Dein Fehler liegt im .Execute innerhalb der IF-Abfrage. Damit wird die eigentlich Suche erst im zweiten Schleifendurchlauf der FOR-Schleife durchgeführt und damit ist automatisch die Bedingung schon bei der ersten gefundenen Überschrift2 wahr.

Im folgenden ein etwas verkürzter Code. Zwei Durchläufe sind für diese Aufgabe ja eigentlich nicht nötig.

y = 0 'Anzahl vorhandener Überschriften 2.Ebene
ya = 0 'Anzahl aller vorgenommenen Seitenumbrüche

    Selection.HomeKey Unit:=wdStory
    With ActiveDocument.Content.Find 'Ermittlung aller vorhandenen Überschriften 2.Ebene
        .ClearFormatting
        .Style = wdStyleHeading2
        Do While .Execute(FindText:="", Forward:=True, Format:=True) = True
            If y > 0 Then
                .Parent.ParagraphFormat.PageBreakBefore = True
                ya = ya + 1
            End If
            y = y + 1
        Loop
    End With
End Sub

Gruß,
Bernd

[ManniC]

@Stefan:

Wie ich in einem anderen Forum gelesen habe hat sich Dein Problem auf wundersame Art und Weise erledigt.......... ---- oder ????