|
Hallo Karl-Heinz,
ich glaub, du kannst das Inhaltsverzeichnis nicht anders gestalten, als deine Überschriften. Soweit ich das verstanden habe, wird das Format deiner Überschriften mit in das Inhaltsverzeichnis übernommen. Wenn du hier manuell Änderungen am Format vornimmst, werden die nach jedem Update wieder verworfen. Deshalb kommt man da mit VBA nicht ran. Du kannst zwar entsprechenden Code ohne Fehler ausführen. Aber es passiert leider nichts. Die Formatierung wird nicht durchgeführt.
Was du aber machen kannst, ist bereits deine Überschriften vorne fett zu markieren. Im folgenden Makro gehe ich das Inhaltsverzeichnis durch, springe zur entsprechenden Überschrift und formatiere diese bis zum ersten Komma. Am Schluss wird das Verzeichnis geupdated. Funktioniert bei mir super. Probiers mal aus.
Wichtig: Deinen Überschriften muss zuvor eine bestimmte Formatvorlage zugewiesen sein. z.B: "Überschrift 1"
Sub UeberschriftenTeileFett()
Dim h As Hyperlink, s As Long, t As String, e As Long
For Each h In ActiveDocument.TablesOfContents(1).Range.Hyperlinks
h.Follow
s = Selection.Start
t = Selection.Text
e = InStr(1, t, ",")
If e > 0 Then
ActiveDocument.Range(s, s + e).Font.Bold = True
End If
Next h
ActiveDocument.TablesOfContents(1).Update
End Sub
Gruß Mr. K.
|