Если вы использовали функцию нумерованного списка Word, вы, вероятно, заметили, что числа в начале каждого элемента списка не могут быть выбраны.

Кроме того, когда вы удаляете или добавляете элементы в свой список, другие элементы в списке меняют нумерацию, чтобы компенсировать ваши действия.

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

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

  1. Выберите список, который хотите заморозить.

  2. Нажмите Ctrl + C, чтобы скопировать текст в буфер обмена. Список все равно должен быть выбран.

  3. Выберите «Специальная вставка» в меню «Правка». Word отображает диалоговое окно Специальная вставка. (См. Рис. 1.)

  4. Выберите «Неформатированный текст» в качестве типа вставки.

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

Эти действия заменяют существующий динамический список собственным текстом, и Word автоматически преобразует автоматическую нумерацию в текст.

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

Более простой подход — использовать макрос, который сделает всю работу за вас. VBA включает специальный метод, который устраняет уже отмеченные недостатки и делает преобразование намного более чистым. Никакое другое форматирование, кроме номеров автоматических списков, не затрагивается. Ниже приведен макрос ListPlain:

Sub ListPlain()

Dim lp As Paragraph

For Each lp In ActiveDocument.ListParagraphs         lp.Range.ListFormat.ConvertNumbersToText     Next lp End Sub

Обратите внимание, насколько короток макрос. Он также выполняется очень быстро и влияет на всю нумерацию во всем документе. Это затрагивает любые нумерованные списки, основанные на автоматической нумерации Word, как и любые поля LISTNUM.

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (1857) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Converting_Lists_to_Text [Преобразование списков в текст].