|
Hallo Zusammen,
folgender Code ist Teil eines längeren Makros:
Dim TOFRange As Range
Dim Found As Boolean
Set TOFRange = ActiveDocument.TablesOfFigures(1).Range
With TOFRange.Find
.ClearFormatting
.Font.Italic = True
.Font.Bold = True
.Text = ""
.Forward = True
.Wrap = wdFindStop
Do While .Execute
If Not TOFRange.InRange(ActiveDocument.TablesOfFigures(1).Range) Then
Exit Do
End If
TOFRange.Font.Italic = False
TOFRange.Font.Bold = True
TOFRange.Collapse wdCollapseEnd
Loop
End With
DIeser Teil formatiert mir ein Teil meines Abbildungsverzeichnisses.
Mein Plan ist, die gleichen funktionen auch für Tabellen zu haben. Ich habe daher auch ein Tabellenverzeichnis eingefügt, welches ja auch ein TOF ist. jetzt meine Frage: Wie muss ich den oberen Code ändern, damit word weiß, dass das Tabellenverzeichnis und nicht das Abbildungsverzeichnis gemeint ist? Die 1 hinter TablesOfFigures habe ich bereits durch alle Zahlen bis 9 ersetzt, das ändert leider überhaupt nichts.
Vielen Dank und schönes Osterwochenende!
Gruß Jonas
|