Word: nach Überschriften filter via VBA (Office)

Martin Asal @, Mittwoch, 05.02.2020, 16:46 (vor 117 Tagen) @ Kona

Hallo Kona,

wenn deine Kapitel vernünftig formatiert sein sollten, hilft dir vielleicht folgender Ansatz weiter:

 
Sub Überschriften()
For Each p In ActiveDocument.Paragraphs
    If p.Format.Style = "Überschrift 1" Then
        Debug.Print p.Format.Style
    End If
Next
End Sub

Falls du deinen Text allerdings nicht selbst geschrieben hast, würde ich mich nicht darauf verlassen, dass wirklich mit Formatvorlagen gearbeitet wurde. Ein Ansatz über Textmarken erscheint mir daher verlässlicher - auch, wenn es erst mal mehr Arbeit ist, die alle einzugeben...

Martin


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum