Радж интересуется, можно ли сохранить стили в макросе Word и запустить позже как часть «проверки работоспособности», чтобы убедиться, что к документу применяются только стили шаблона и ничего больше.

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

http://wordribbon.tips.net/T012698

Помимо того, что описано в этом совете, если все, что вы хотите сделать, это проверить, находятся ли стили, используемые в документе, в «утвержденном списке» стилей, то это относительно простая задача. Имена стилей можно легко сохранить в массиве строк, а затем сравнить их со стилями, примененными к каждому абзацу в документе. Вы можете перемещаться по абзацам в документе и проверять, входят ли стили в утвержденный список, используя структуру, подобную этой:

sTemp = ""

For Each p In ActiveDocument.Content.Paragraphs     sPStyle = p.Style     bNotFound = True     For J = 1 To iNumValid         If sPStyle = sValidStyles(J) Then bNotFound = False     Next J     If bNotFound Then         sTemp = sTemp & sPStyle & vbCrLf     End If Next p

Этот пример представляет собой просто фрагмент кода; ваш полный макрос должен будет настроить массив строк (sValidStyles), который содержит все допустимые имена стилей вместе с iNumValid, который представляет собой количество элементов массива. Когда фрагмент завершен, переменная sTemp содержит имена всех стилей, используемых в документе, которых нет в массиве sValidStyles. (Если недопустимый стиль встречается в документе более одного раза, он будет отображаться в sTemp более одного раза.)

Если вы ищете макрос, который действительно будет выполнять «проверку работоспособности», чтобы увидеть, был ли изменен стиль, то проблема астрономически более сложная. У стилей может быть множество или сотни возможных настроек, и сохранение каждой из этих настроек для каждого допустимого стиля было бы кошмаром. В этой ситуации лучше использовать подходы, основанные на защите, подробно описанные в приведенном выше совете.

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (12959) относится к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365.