Quando si lavora con un documento per molto tempo, o quando si eredita un documento da qualcun altro, è molto probabile che contenga stili che non sono più in uso. Potresti voler sbarazzarti di questi stili, ma questo può essere pericoloso per il formato del tuo documento se inizi a cancellarli senza sapere che realmente non sono in uso.

È qui che una macro torna utile. Può cercare rapidamente in un documento per vedere se uno stile particolare viene utilizzato ovunque. In caso contrario, lo stile può essere facilmente eliminato. La seguente macro, DeleteUnusedStyles, fa proprio questo.

Sub DeleteUnusedStyles()

Dim oStyle As Style

For Each oStyle In ActiveDocument.Styles         'Only check out non-built-in styles         If oStyle.BuiltIn = False Then             With ActiveDocument.Content.Find                 .ClearFormatting                 .Style = oStyle.NameLocal                 .Execute FindText:="", Format:=True                 If .Found = False Then oStyle.Delete             End With         End If     Next oStyle End Sub

Notare che la macro ignora uno stile se si tratta di uno stile predefinito. Questo perché l’eliminazione di uno stile incorporato non lo elimina realmente, ma ripristina solo lo stile alla sua condizione originale e predefinita. In effetti, Word non consente l’eliminazione degli stili incorporati da un documento. Anche se lo stile integrato non viene più utilizzato, ma una volta era utilizzato nel documento, verrà comunque visualizzato nell’elenco a discesa degli stili.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (1337) si applica a Microsoft Word 97, 2000, 2002 e 2003.