کد ماکرو 👇 Sub DeleteUnusedStyles() Dim aStyle As Style For Each aStyle In ActiveDocument.Styles If aStyle.BuiltIn = False Then With ActiveDocument.Content.Find .ClearFormatting .Style = aStyle.NameLocal .Execute FindText:="", Format:=True If .Found = False Then aStyle.Delete End With End If Next aStyle End Sub