Когда вы работаете с документом в течение длительного времени или когда вы наследуете документ от кого-то еще, очень возможно, что он содержит стили, которые больше не используются. Вы можете захотеть избавиться от этих стилей, но это может быть опасно для формата вашего документа, если вы начнете их удалять, не зная, что они действительно не используются.

Вот здесь и пригодится макрос. Он может быстро выполнить поиск по документу, чтобы узнать, используется ли где-либо определенный стиль. Если это не так, стиль можно легко удалить. Следующий макрос, DeleteUnusedStyles, делает именно это.

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 не позволяет удалять встроенные стили из документа. Даже если встроенный стиль больше не используется, но когда-то использовался в документе, он все равно будет отображаться в раскрывающемся списке стилей.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (1337) относится к Microsoft Word 97, 2000, 2002 и 2003.