Как преобразовать нумерацию в текст word

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

Преобразовать нумерация или маркированный список в текст вручную

Преобразование нумерации или маркированного списка в текст с помощью VBA

Преобразование нумерации или маркированного списка в текст с помощью Kutools for Word

Преобразовать нумерацию или маркер список в текст вручную

1. Выберите список, который нужно преобразовать.

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

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

Преобразование нумерации или маркированного списка в текст с помощью VBA

Использование кода VBA также является простым способом преобразования нумерация или маркированный список в текст в Word. Это можно быстро сделать следующим образом:

1: нажмите Alt + F11 , чтобы открыть окно Microsoft Visual Basic для приложений . ;

2: нажмите Модуль на вкладке Вставить , скопируйте и вставьте следующий код в модуль окно;

3: нажмите кнопку Выполнить . чтобы запустить

код VBA для преобразования списка в текст, как показано ниже:

Sub ConvertListToText ()
ActiveDocument.ConvertNumbersToText
End Sub

Преобразование нумерации или маркированного списка в текст с помощью Kutools for Word

Для тех людей, которым не хватает компьютерных знаний, запуск кода VBA может быть трудным для них. Но с Kutools for Word утилитой List to Text вы можете легко справиться с этим.

Kutools for Word , удобная надстройка, включает в себя группы инструментов, которые упрощают вашу работу и расширяют возможности обработки текстовых документов. Бесплатная пробная версия на 45 дней! Получить сейчас!

Шаг 1. Нажмите Kutools > Список в текст , см. снимок экрана:

Шаг 2. После нажатия Перевести в текст появится Список в текст , напоминающее о преобразовании списка. Нажмите Да , чтобы начать преобразование. См. снимок экрана:

Вы увидите, что весь список преобразован в текст как показано на скриншотах ниже:

Примечание. Если вы просто хотите преобразовать часть списка, выберите ее и примените утилиту List to Text , тогда выбранная часть списка будет преобразована в текст.

Нажмите здесь чтобы получить более подробную информацию об утилите List to Text Kutools for Word.

Относительные статьи:

• Преобразование нескольких таблиц в текст в Word
• Преобразование концевой сноски в текст в Word

Рекомендуемые инструменты для работы с Word

Вернуться в Полезное программное обеспечение. Аллея Бродяги

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

Вы практически все сделали сами!

Этот код будет работать:

Sub convertNumbersAndBulletsToText()
   Selection.Range.ListFormat.ConvertNumbersToText
End Sub

Ваш пример возвращает ошибку, потому что ConvertNumbersToText метод не работает с Selection, Работает с Range!

(смотрите здесь: Изменить выбранный автоматический нумерованный список на обычный текст в слове)

Осторожно!

Если вы хотите внести много изменений, вам может быть проще сделать их с ActiveDocument (Смотри ниже).

Но если вы хотите сделать это вручную (или через цикл),
тогда вам лучше перейти от последнего элемента, который вы хотите преобразовать к первому
(не наоборот, потому что тогда авто-номера будут постоянно увеличиваться на единицу)!

Маленькие Подсказки

Лично я бы порекомендовал вам использовать этот код:

Sub convertNumbersAndBulletsToText()
   Dim myRange As Range
   Set myRange = Selection.Range
   myRange.ListFormat.ConvertNumbersToText
End Sub

• Почему этот? Это немного более гибко! Вместо Selection.Range Вы могли бы использовать любой другой тип Range (ActiveDocument, ActiveDocument.Paragraphs, myRange.SetRange так далее)

  • Вот несколько ссылок из msdn, чтобы дать вам основные примеры диапазонов: 1) Range Range (Word) (msdn), 2) Range.SetRange Method (Word) (msdn).

• Просто для вашей информации, вам не нужно сохранять VBA, если вы не хотите. Вы можете использовать Immediate Window для запуска VBA.

  • Нажмите alt+f11 (VBA-редактор), затем ctrl+g (Немедленное окно).
  • Вставьте код ниже, нажмите Enter.
  • Вуаля!

Код (для непосредственного окна):

ActiveDocument.ConvertNumbersToText

(Он преобразует авто-номера и авто-маркеры в нормальные числа и маркеры везде в ActiveDocument).

• Результат любого VBA здесь будет number+tab+text, Если вы хотите иметь number+space+text вы можете:

  • либо в самом конце заменить (нажмите ctrl+h) этот .^t (точка и вкладка) для . (точка и пробел),
  • или в самом начале 1) выберите список, 2) щелкните по нему правой кнопкой мыши, 3) нажмите «Настроить идентификаторы списка», 4) нажмите «Подписаться на число с помощью пробела». (Смотрите здесь: отрегулируйте интервал для одного элемента списка (support.office))

• Вам может понадобиться начальный ноль в (авто) нумерации, затем вы можете нажать ctrl+f9, записывать SEQ MyList # "000" внутри фигурных скобок, нажмите alt+f9 чтобы закончить (смотрите здесь: вставьте поля в Word (support.office)). Но это выходит за рамки вопроса, хотя вы можете найти слово fields действительно полезно в некоторых случаях.

Подводить итоги:

Вы можете заменить как маркеры, так и цифры для обычного текста в Word:

• для выбора (см. выше);
• для ActiveDocument (смотрите выше);
• с диапазоном (примеры в msdn);
• с циклом (примеры приветствуются). Но имейте в виду, что вы должны перейти от конца документа к началу.

1. Тут не совсем понятно какой поиск и что вы подразумеваете под словом дискретный?
2. Проблема скорей всего в вашей читалке, что она не видит колонтитулов. Для начала что за электронная книга? Может есть для нее обновления или прошивка, ну я не знаю. Дело в том, что текст и колонтитулы в ворде условно находятся на разных слоях и то что ваша книга не видит колонтитулов, то это уж точно ее проблема, а не ворда. Что касается преобразования колонтитула в обычный текст, то тут тоже не без подводных камней, так как после такого преобразование нарушиться первоначальная верстка текста, т.е. он поползет, потому что для такого преобразования как вы хотите, нумерацию придется переносить из колонтитула в текстовое поле, а это чревато изменением первоначального макета.
К сожалению я не макрописец, но есть некий код, был когда-то скачан с просторов интернета, который делает такое преобразование. Можете попробовать для наглядности, что получиться. Возможно подтянутся макрописцы и помогут вам доработать его, тут я бессилен.

Sub HdrFtr()
Dim objSect As Section
Dim rngHdFt As Range

For Each objSect In ActiveDocument.Sections()
    Set rngHdFt = objSect.Headers(1).Range
    objSect.Range.Paragraphs(1).Range.InsertBefore (rngHdFt.Text)
    objSect.Headers(1).Range.Delete
    Set rngHdFt = objSect.Footers(1).Range
    objSect.Range.Paragraphs(objSect.Range.Paragraphs.Count - 1) _
            .Range.InsertAfter (rngHdFt.Text)
    objSect.Footers(1).Range.Delete
Next objSect

End Sub