Word Dosyasında Kullanılmayan Stilleri Visual Basic Script İle Silmek

Merhabalar.

Bazı word dosyalarını düzenlerken o dosyanın kaç bilgisayardan geçtiğini, stil galerisini açtığımızda listenin uzayıp gittiğini görüyoruz.

Bu kalabalıkta, hangi stilin kullanımda olup olmadığı anlamak bazen zor olabiliyor.

Aşağıda bağlantısını verdiğim sitede bunun için bir Visual Basic Script kodu paylaşılmış.

https://answers.microsoft.com/en-us/msoffice/forum/msoffice_word-mso_other-mso_2016/how-to-clear-unused-syles-in-ms-word-2016/d5da9b70-82d9-4a57-862a-f43621732c0d

Makro kodu:

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

"Geliştirici" sekmesine tıklayınız, veya ALT+F11 tuşlarına basınız.

"This document"e sağ tıklayınız. "Insert / Module" sayfası açınız.

Makro kodunu kopyalayıp açılan sayafaya yapıştırıyoruz. "Run" tuşuna basınız.

Makro kodunu işlemden sonra silebilirsiniz.

Dosyayı kaydediniz. Kayıt esnasında ekrana gelen ileti için, dosyayı makrosuz olarak kaydetmek isterseniz,  "Evet" butonuna basınız.

Faydalı olması dileğiyle.