А макрос есть готовый в Word, или его нужно писать?

Alt+F11, слева выбираете ваш документ двойным нажатием ЛКМ, откроется окно, вставляете туда текст макроса и нажимаете зеленый значок пуска на верхней панели. Если возникнут какие-то ошибки, то текст макроса подсветится. Если нет - просто закройте окно VBA, вернетесь к документу.

0

17.11.2023

Даша

Евгения
Sub DeleteUnusedStyles() Dim oStyle As Style ...

Спасибо большое за макрос! Использовала в готовом документе на 900 страниц, сработал на ура!

0

23.11.2023

Luiza

Даша
Спасибо большое за макрос! Использовала в готовом ...

не у всех получилось пока его заставить работать)

0

23.11.2023

Евгения · Accepted Answer

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

Похожие чаты

А макрос есть готовый в Word, или его нужно писать?

8 ответов

Похожие вопросы