Uneori, dacă suntem nevoiţi să formatăm diferite documente preluate, s-ar putea să realizăm că vorba „mai bine refaci decât repari” este reală. Astfel, decât să ajustăm anumite stiluri complexe sau compromise, le putem şterge. Câteva rânduri VBA pot să rezolve rapid acest aspect.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Sub StergeStiluriCustom() Dim doc As Document Dim stil As style ' Activează documentul curent Set doc = ActiveDocument ' Parcurge toate stilurile din document For Each stil In doc.Styles ' Verifică dacă stilul este personalizat If stil.BuiltIn = False Then stil.Delete ' Elimină stilul personalizat End If Next stil MsgBox "Toate stilurile personalizate au fost eliminate!", vbInformation End Sub |
