У Барри есть довольно большой документ Word (около 50 страниц), содержащий сотни полей XE, используемых для создания индекса. Он задается вопросом, есть ли способ подсчитать количество полей XE в документе, не считая их вручную.

Есть несколько способов удовлетворить эту потребность. Первый — полагаться на возможности Word «Найти и заменить». Вот простые шаги:

  1. Откройте диалоговое окно «Параметры Word». (В Word 2007 нажмите кнопку «Office», а затем выберите «Параметры Word». В Word 2010 или более поздней версии откройте вкладку «Файл» на ленте и нажмите «Параметры».)

  2. В левой части диалогового окна нажмите «Показать». (См. Рис. 1.)

  3. Убедитесь, что в вашем документе отображается скрытый текст. (Просто убедитесь, что установлены флажки «Скрытый» или «Все».)

  4. Щелкните ОК.

  5. Нажмите Ctrl + H. Word отображает вкладку «Заменить» диалогового окна «Найти и заменить». (См. Рис. 2.)

  6. В поле «Найти» введите «^ 19 XE» (без кавычек).

  7. В поле «Заменить на» введите «^ &» (опять же, без кавычек).

  8. Нажмите «Заменить все».

Word находит все поля XE и отображает количество произведенных замен. Это ваш желаемый счет. Код ^ 19 (на шаге 6) — это код символа для открывающей скобки поля, который указывает, что должны сопоставляться только поля. При желании теперь можно отключить отображение скрытого текста.

Об этой последовательности шагов следует отметить несколько моментов.

Во-первых, некоторые могут подумать, что в приведенном выше отсутствует шаг:

нажатие Alt + F9 для отображения всех кодов полей в документе.

На самом деле этот шаг не требуется, потому что поля XE отображаются всегда, пока отображается скрытый текст. Другими словами, нажатие Alt + F9 не влияет на их отображение так или иначе. Однако, если вы подсчитываете поле, отличное от поля XE, вы захотите отобразить коды полей перед выполнением шагов.

Также следует отметить, что Word довольно снисходительно относится к количеству пробелов, которые могут следовать за открывающей скобкой поля. Приведенные выше шаги находят только поля XE, в которых открывающая скобка поля (^ 19) и код XE разделяются одним пробелом. Если ваши поля содержат больше пробелов (или не содержат пробелов), то эти экземпляры поля не будут учитываться. По этой причине вы можете просто выполнить поиск XE (без кода ^ 19 и пробела) и установить флажок «Учитывать регистр». Это будет работать до тех пор, пока в вашем документе нет других экземпляров заглавных символов XE.

Есть также несколько простых макросов, которые можно использовать для подсчета полей XE. Если единственными полями в вашем документе являются поля XE, то макрос действительно очень прост:

Sub CountFields()

Dim iCnt As Integer

iCnt = ActiveDocument.Fields.Count     MsgBox "There are " & iCnt & " fields in the document."

End Sub

Однако этот подход не будет работать, если в вашем документе есть другие поля. Помните — поля используются для фактического размещения индекса в документе. Поэтому, если вы используете поля XE для записей индекса, вы, вероятно, используете поле для вставки самого индекса. И, конечно же, в вашем документе может быть много других полей для других целей. С такой вероятностью ваш макрос должен проверить каждое поле и определить, является ли оно полем XE или нет.

Sub CountXEFields()

Dim iCnt As Integer     Dim f As Field

For Each f In ActiveDocument.Fields         If f.Type = wdFieldIndexEntry Then iCnt = iCnt + 1     Next     MsgBox "There are " & iCnt & " XE fields in the document."

End Sub

Этот макрос проверяет свойство Type каждого объекта Field, чтобы убедиться, что это поле XE. Если да, он добавляется к счетчику, а затем счетчик отображается в конце макроса.

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (11754) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Counting_Fields_in_a_Document [Подсчет полей в документе].