استارت آباد | آموزشهای پولساز کامپیوتری
کد ماکرو
👇 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