Форум программистов, компьютерный форум, киберфорум
MS Office Word
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/51: Рейтинг темы: голосов - 51, средняя оценка - 4.63
Suppir
25 / 25 / 10
Регистрация: 08.08.2011
Сообщений: 1,158
1

Как поменять автоматическую нумерацию списка на "жесткую"

09.11.2012, 11:51. Просмотров 9744. Ответов 4
Метки нет (Все метки)

Добрый день!

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

Скажите, пожалуйста, как по всем документа сделать нумерацию "жесткой". То есть, чтобы нумерация в списках не сбивалась при удалении элемента списка.

Добавлено через 2 минуты
Пример документа:
[Во вложении]

Добавлено через 43 минуты
Нашел такой способ:

1) копируем текст из Word'а
2) открываем WordPad
3) делаем специальную вставку "rtf-файл"

тогда и форматирование таблиц остается, а списки получаются с жесткой нумерацией.

Есть ли более простой способ?
0
Вложения
Тип файла: rar 123456.rar (52.2 Кб, 23 просмотров)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.11.2012, 11:51
Ответы с готовыми решениями:

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

Как написать регулярное выражение для выдергивания английских букв и символов: "+", ",", ":", "-", " ", "!", "?" и "."
Не могу ни как собразить как написать регулярное выражение для выдергивания английских букв и...

Как изменить свойства выпадающего списка и как убрать надпись: "Файл не выбран" в теге <input type="file">?
Как изменить свойства выпадающего списка &lt;select&gt;&lt;option&gt;Lorem ipsum&lt;/option&gt;&lt;/select&gt;? Как...

Как реализовать автоматическую нумерацию строк в БД
Добрый вечер, хорошие люди! Такой вопрос по SQL. Имеется БД, в ней есть таблица с публикациями....

4
Скрипт
5454 / 1135 / 49
Регистрация: 15.09.2012
Сообщений: 3,432
09.11.2012, 13:51 2
Превращение номеров и маркеров списков в текст во всём документе:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Procedure_1()
 
    Dim i As Long
    
    'Отключаем обновление монитора, чтобы быстрее работало.
    Application.ScreenUpdating = False
    
    For i = ActiveDocument.ListParagraphs.Count To 1 Step -1
        ActiveDocument.ListParagraphs(i).Range.ListFormat.ConvertNumbersToText
    Next i
 
    'Влкючаем обновление монитора.
    Application.ScreenUpdating = True
    
    'Сообщение, что код завершил работу.
    MsgBox "Код завершил работу!", vbInformation
    
End Sub
3
Suppir
25 / 25 / 10
Регистрация: 08.08.2011
Сообщений: 1,158
09.11.2012, 15:33  [ТС] 3
Спасибо, попробую!
0
VitGT
0 / 0 / 0
Регистрация: 04.12.2016
Сообщений: 12
18.06.2018, 15:51 4
Цитата Сообщение от Скрипт Посмотреть сообщение
Превращение номеров и маркеров списков в текст во всём документе:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Procedure_1()
 
    Dim i As Long
    
    'Отключаем обновление монитора, чтобы быстрее работало.
    Application.ScreenUpdating = False
    
    For i = ActiveDocument.ListParagraphs.Count To 1 Step -1
        ActiveDocument.ListParagraphs(i).Range.ListFormat.ConvertNumbersToText
    Next i
 
    'Влкючаем обновление монитора.
    Application.ScreenUpdating = True
    
    'Сообщение, что код завершил работу.
    MsgBox "Код завершил работу!", vbInformation
    
End Sub
А как наоборот превратить текстовую нумерацию в автоматическую нумерацию ?

Например дано текстовый документ:
493. Элемент списка
а) подпункт
б) подпункт еще один
494. Элемент списка
* подпункт
* подпункт еще один
495. Элемент списка
...
А нужно превратить в автоматический формат нумерации 493, 494, 495 и т.д.:
493. Элемент списка
а) подпункт
б) подпункт еще один
494. Элемент списка
* подпункт
* подпункт еще один
495. Элемент списка
...
0
shanemac51
Модератор
Эксперт MS Access
9373 / 3705 / 590
Регистрация: 07.08.2010
Сообщений: 10,412
Записей в блоге: 2
18.06.2018, 18:23 5
видимо на этой базе
0
Миниатюры
Как поменять автоматическую нумерацию списка на "жесткую"  
18.06.2018, 18:23
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.06.2018, 18:23

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как убрать автоматическую нумерацию абзацев?
В документе все абзацы пронумерованы автоматом (то есть при выделении текста эти цифры не...

Как через VBA поменять "Подпись" "Надписи"?
Как через VBA поменять &quot;Подпись&quot; &quot;Надписи&quot;?

В зависимости от времени года "весна", "лето", "осень", "зима" определить погоду "тепло", "жарко", "холодно", "очень холодно"
В зависимости от времени года &quot;весна&quot;, &quot;лето&quot;, &quot;осень&quot;, &quot;зима&quot; определить погоду &quot;тепло&quot;,...

Как поменять слэш с "" на "/" в пути файла?
Подскажите как поменять слэш с ' ' на '/' в пути файла, т.е. допустим C:wwwwweeeeqqq.txt на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.