|
Dann solltest du deine Mitarbeiter erziehen.
Zum Beispiel an deren Tisch vorbei gehen und mit ausgestregtem Arm drüber fegen (alles fällt auf den Boden) - machen die mit deiner Arbeit ja auch ständig. 
Ok, Spaß beiseite. Es gibt solche Kollegen die sind unbelehrbar.
- Möglichkeit (bevorzugte Lösung)
- Möglichkeit (per Code erneut hinzufügen)
- nur möglich wenn man für die Gleiderung die Formatvorlagen benutzt hat (Word > Start > Formatvorlagen)
Dank der Formatvorlage, kann man dann über die Stellen im Text, wo sie verwendet wurden, iterieren.
Beispiel:
Option Explicit
Public Sub Test()
Dim objParagraph As Word.Paragraph
For Each objParagraph In ThisDocument.Paragraphs
If Not TypeOf objParagraph.Range.ListFormat Is Word.ListFormat Then
GoTo Continue_ForEach
End If
Dim lfmt As Word.ListFormat
Set lfmt = objParagraph.Range.ListFormat
If lfmt.ListLevelNumber <> 1 Then
GoTo Continue_ForEach
End If
With objParagraph.Range
Call .MoveEndWhile(vbCrLf, wdBackward)
If Len(.Text) <= 0 Then
GoTo Continue_ForEach
End If
Debug.Print "[ Index = " & lfmt.ListValue & ", Text = '" & .Text & "' ]"
End With
Continue_ForEach:
Next
End Sub
Hier wird also im Dokument nach den Überschriften gesucht, die auf der obersten Ebene liegen (1). Von jenen wird weiter unten (zeile mit Debug.Print) deren Index ausgegeben (Kapitel 1, Kapitel 2, ).
Mit diesem Ansatz kann man also prüfen ob z.B: Kapitel 4 fehlt und es erneut hinzufügen (dieser Teil fehlt hier).
Grüße
|