[Word] Überschriften reorganisieren

Gepostet am: May 25, 2011 4:47:23 PM

Wenn man Dokumente schreibt, kommt es immer wieder vor, dass man Überschriften um ein Level verschieben muss. Es soll beispielsweise aus Überschrift 1 Überschrift 2 werden. 

Überschriften eines Dokumente auflisten

Überschriften auflisten

Sub Ueberschriften_auflisten()     Dim myArr() As String     Dim i As Integer          myArr = ActiveDocument.GetCrossReferenceItems()          For i = 1 To UBound(myArr)         Debug.Print myArr(i)     Next i     End Sub

Überschriften eines bestimmten Typs auflisten.