For Each oPara In ThisSection.Paragraphs
    '... ... ...
            Do: LastParaStart = oPara.Range.Start
                Set oPara = oPara.Range.GoTo(What:=wdGoToHeading, _
                  Which:=wdGoToNext, Count:=NextHeaderindex).Paragraphs(1)
            Loop While oPara.Style <> "Überschrift 3" And _
            oPara.Range.Sections(1).Index <> ThisSectionIndex And _
            LastParaStart <> oPara.Range.Start 'Zur nächsten H3 springen
 
    Next oPara