fett aus Header

Question

mit VBA entfernt Ich mag fett von Header entfernen würde, und ich bin in der Lage dies mit diesem Code für Heading 1 zu tun:

With ActiveDocument.Content.Find 
    .Format = True 
    .Style = "Heading 1" 
    .Execute 
    .Parent.Bold = False 
End With 

Dies gilt jedoch nicht für andere Ebene erscheinen zu arbeiten Kopfzeilen. So entfernen Sie Heading 4 ich versuche:

With ActiveDocument.Content.Find 
    .Format = True 
    .Style = "Heading 4" 
    .Execute 
    .Parent.Bold = False 
End With 

Aber es macht nichts. Wenn ich manuell nach style = Heading 4 unter Verwendung der fortgeschrittenen ctrl-f suche, ist alles fett geschrieben.

Answer 1

Dies überhaupt ohne die Verwendung der .Find Methode arbeiten können, können Sie direkt mit den, wie so Style Objekte interagieren:

Dim s As Style 
Set s = ActiveDocument.Styles("Heading 4") 
s.Font.Bold = False