Hallo liebe Experten,
ich könnte nochmal eure Hilfe gebrauchen.
Ich habe im Word Dokument ein Inhaltsverzeichnis, welches aus Überschriften einer bestimmten Formatvorlagen gegliedert ist.
Pos. 1
Hier steht etwas
Pos. 1.1
Pos. 2
Pos. 2.1
Pos. 2.2
Hier steht etwas
und so weiter...
Allerdings sollen Positionen gelöscht werden, unter denen kein Text steht. Also wenn eine Überschrift bzw. ein Kapitel unmittelbar auf das nächste folgt.
Pos. 2 dürfte aber in diesem Fall ja nicht gelöscht werden.
Das Inhaltsverzeichnis kann man dann ja aktualisieren und die Positionsnummern passen sich auch automatisch an.
Formatvorlage der Überschriften: Überschrift 1
Ich habe schon herausgefunden, wie alle meine Überschriften angezeigt werden.
Sub ÜberschriftenAnzeigen()
Dim myArr() As String
Dim i As Integer
myArr = ActiveDocument.GetCrossReferenceItems(wdRefTypeHeading)
For i = 1 To UBound(myArr)
Debug.Print myArr(i)
Next i
End Sub
Kann mir da jemand helfen?
|