Как скопировать нумерацию в Ворде

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

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

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

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

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

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

Потрясающе! Используйте эффективные вкладки в Word (Office), например в Chrome, Firefox и новом Internet Explorer!

Подробнее Бесплатная загрузка

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

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

«Да и нельзя доказывать уже по одному тому, что всего не докажешь». (Ф.М. Достоевский)

Uncle A1

mikegor » Ср фев 13, 2008 14:46

Если это текст без особого форматирования, то пометить весь текст или его фрагмент, включающий все списки. Затем Ctrl-X, Вставка — Специальная вставка — Неформатированный текст. Все списки превратятся в обычные абзацы, номер абзаца от текста будет отделен символом табуляции. Если там нужны пробелы, то делаем глобальную замену ^t на пробел.

An Arbeitsplätzen kann es laut zugehen. Verlassen Sie sich nicht auf verbale Kommunikation!

mikegor

Uncle A1 » Ср фев 13, 2008 16:24

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

«Да и нельзя доказывать уже по одному тому, что всего не докажешь». (Ф.М. Достоевский)

Uncle A1

mikegor » Ср фев 13, 2008 17:18

Uncle A писал(а): Правда, в W2007 я «специальной вставки»

Я пока не разжился 2007-м Word-ом, но вот что говорят :

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

An Arbeitsplätzen kann es laut zugehen. Verlassen Sie sich nicht auf verbale Kommunikation!

mikegor

Uncle A1 » Ср фев 13, 2008 18:30

Uncle A писал(а): я «специальной вставки» не нашел

Вернувшись из магазина и прочитавши Ваше послание, просто так, для очистки совести, сунулся в «настройки». И сразу на нее наткнулся.

«Да и нельзя доказывать уже по одному тому, что всего не докажешь». (Ф.М. Достоевский)

Uncle A1

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

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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 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).

Нажмите 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))

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

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

И мне нужно будет поиск осуществлять. Если можно перевести Word в PDF с сохранением дискретного текста то тогда еще норм

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

Создание и изменение формата нумерации в MS Word

Нумерация списков или глав документа в текстовом редакторе MS Word — одна из самых востребованных функций программы и по этой причине — одна из простейших вещей по исполнению. Недаром кнопки «маркированный список» и «нумерованный список» расположены на панели инструментов ворда не абы где, а на вкладке «Главная», открытой по-умолчанию.

Создать простой нумерованный список в MS Word очень просто. А не простые списки создавать я вас ещё научу!

В принципе, возможностей и форматов нумерации которые дают эти два инструмента, должно хватить с головой для построения казалось бы любого списка: нумерация арабскими цифрами, римскими, буквами алфавита — казалось бы в Microsoft предусмотрели всё… и так бы оно и было, если бы не было на свете технической, юридической, медицинской и другой специализированной литературы.

Как бы, например, если вам необходимо, чтобы главы в документе начинались с букв алфавита, а заканчивались цифрами, или, например, имели конструкцию наподобие этого:

К счастью, теперь у вас есть решение и для такой задачи — сейчас я покажу вам как легко и непринужденно создавать в MS Word собственные форматы нумерации!… и расскажу о том, почему это не так уж и просто.

Вот из этого списка, мы попытаемся сделать совершенно не стандартную нумерацию для документа

Создаем собственный формат нумерации

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

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

Нажимаем «Ок» и видим, что стандартная нумерация заменилась на только что созданную. Собственно, этого мы с вами и добивались!

Вновь созданная нестандартная нумерация для документа

Однако праздновать победу рано: если вы посмотрите на мой список выше, то увидите не совсем то, что хотелось бы. Ну ладно, подглавы первой главы начинаются с 01-… , но ведь и подглавы второй главы тоже начинаются с 01-…, хотя по логике должны именоваться как 02-…

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

Потому что выход все же есть, хотя и не самый изящный.

Нам просто понадобится создать еще один формат нумерации — ни чем не отличающийся от предыдущего, кроме первых цифр. Просто выделяем часть списка, ту что относится ко второй главе, повторяем все описанные действия, но в поле «Формат номера» пишем не 01-, а 02-.

Нажимаем «Ок» и любуемся результатом!

Итоговый вариант нумерации по новому шаблону

Как дублировать нумерацию в Microsoft Word: полезное руководство

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

Рекомендуемые инструменты повышения производительности для Word

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

Потрясающе! Используйте эффективные вкладки в Word (Office), например в Chrome, Firefox и новом Internet Explorer!

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

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

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

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

Kutools For Word – Более 100 расширенных функций для Word, сэкономьте 50% времени

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

Удивительный! Используйте эффективные вкладки в Word (Office), например Chrome, Firefox и New Internet Explorer!

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

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

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

Рекомендуемые инструменты для повышения производительности Word

Kutools For Word — Более 100 расширенных функций для Word, сэкономьте 50% времени

нумерованный список в текст Word

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

Создание и изменение формата нумерации в MS Word

Создаем собственный формат нумерации