Обратная нумерация списка

@diletant2 · Регистрация: 02.05.2011

Студворк — интернет-сервис помощи студентам

возможна ли в MS Word обратная нумерация списка, скажем - от 10 до 0?

@Sasha_Smirnov · 21.05.2011, 00:59

Да. Через поле {=11 - {Seq x}}.

{} вставить по Ctrl-F9.

Добавлено через 11 часов 7 минут
Нумерацию увидите, обновив поля (по F9 или через меню по правой кнопке).

@diletant2 · 21.05.2011, 02:39 **[ТС]**

Сообщение от Sasha_Smirnov

Да. Через поле {=11 - {Seq x}}.

{} вставить по Ctrl-F9.

Добавлено через 11 часов 7 минут
Нумерацию увидите, обновив поля (по F9 или через меню по правой кнопке).

хм, а куда это поле вставлять? есть список:
1. йцукен
2. цукен
3. укен
4. кен
5. ен

а надо такой:
5. йцукен
4. цукен
3. укен
2. кен
1. ен

причем, заранее кол-во элементов в списке неизвестно, т.е. х...1, а лучше - 0.

@Sasha_Smirnov · 21.05.2011, 12:51

Ну раз заранее неизвестно — число в поле придётся менять по обстановке.

@diletant2 · 21.05.2011, 19:25 **[ТС]**

Сообщение от Sasha_Smirnov

Ну раз заранее неизвестно — число в поле придётся менять по обстановке.

как-то очень сложно... м.б. вместо "5" взять кол-во выделенных строк? как Word вообще нумерует список?

@Sasha_Smirnov · 21.05.2011, 23:59

Взять кол-во выделенных строк можно, но это надо уже смотреть метод ComputeStatistics в VBA.

@diletant2 · 22.05.2011, 01:09 **[ТС]**

Сообщение от Sasha_Smirnov

Взять кол-во выделенных строк можно, но это надо уже смотреть метод ComputeStatistics в VBA.

Вы хотите сказать - что тут код не прокатит?

@Sasha_Smirnov · 22.05.2011, 16:28

Не, наоборот.

Кодом можно как угодно нумеровать. Но не каждый решится!

@diletant2 · 22.05.2011, 16:31 **[ТС]**

Сообщение от Sasha_Smirnov

Не, наоборот.

Кодом можно как угодно нумеровать. Но не каждый решится!

как бы так - решиться... любопытно было б - на код взглянуть, а?

@Sasha_Smirnov · 23.05.2011, 00:57

А что, мои пол́я — не удобны?

@diletant2 · 23.05.2011, 01:22 **[ТС]**

Сообщение от Sasha_Smirnov

А что, мои пол́я — не удобны?

да вставлять долго как-то, а что?

@Sasha_Smirnov · 24.05.2011, 00:56

А макрос часа 2 писать. Легче просто снизу вверх читать нумерованный список!

@diletant2 · 24.05.2011, 02:58 **[ТС]**

Сообщение от Sasha_Smirnov

А макрос часа 2 писать. Легче просто снизу вверх читать нумерованный список!

так значит - макрос возможен? ну хоть идею засветите, полезная, ИМХО, тема!

@Busine2009 · 24.05.2011, 09:19

diletant2,
У меня такая идея.
Используем обычный список. Когда список готов. То превращаем его в текст. Затем проводим сортировку по убыванию.
Если понадобится добавить новый элемент в список, то сортируем текст по возрастанию. Применяем к тексту список. Добавляем новый элемент. Затем снова превращаем список в текст и затем проводим сортировку по убыванию.
Коды применяются ко всему документу:

Visual Basic
1
2
3
4
5
6
7
8
Sub P1()
'Сортируем по убыванию.
'Превращаем список в текст.
ActiveDocument.ConvertNumbersToText
'Сортируем по убыванию.
ActiveDocument.Range.Sort ExcludeHeader:=False, FieldNumber:="абзацам", _
    SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderDescending
End Sub

Visual Basic
1
2
3
4
5
6
7
8
9
Sub P2()
'Добавление нового элемента в список.
'Сортируем по возрастанию.
ActiveDocument.Range.Sort ExcludeHeader:=False, FieldNumber:="абзацам", _
    SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending
'Превращаем текст в список.
ActiveDocument.Range.ListFormat.ApplyListTemplateWithLevel _
    ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(6)
End Sub

Вот такой ещё вариант при условии, что все абзацы нумеруются:
{={DOCPROPERTY Paragraphs}-{SEQ Рисунок \* ARABIC}}
DOCPROPERTY Paragraphs - это поле показывает, сколько абзацев в документе. Вставляется вот так: Категория: О документе - Поля: DocProperty - Свойство: Paragraphs. Уберите флажок Сохранять формат при обновлении.
SEQ Рисунок - это Название. Выберите любое название и поставьте флажок Исключить подпись из названия.

@Sasha_Smirnov · 24.05.2011, 11:13

Я просто вставил текст полей. Добавил к каждому по точке с пробелом.

abcd (имя последовательности) в каждом списке придётся менять на что-то новое.

@diletant2 · 27.05.2011, 23:41 **[ТС]**

Сообщение от Busine2009

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

хорошая идея! мне вообще-то надо пронумеровать ячейки в столбце таблицы

@Busine2009 · 28.05.2011, 07:43

diletant2,
пока только предполагается решение, если в первом столбце в каждой ячейке будет число (т.е. нет пустых ячеек в первом столбце): т.е. каждая ячейка в первом столбце должна содержать порядковый номер в обратном порядке.

Выложите образец файла (данные можете видоизменить, если они секретные).

@diletant2 · 28.05.2011, 13:42 **[ТС]**

Сообщение от Busine2009

diletant2,
пока только предполагается решение, если в первом столбце в каждой ячейке будет число (т.е. нет пустых ячеек в первом столбце): т.е. каждая ячейка в первом столбце должна содержать порядковый номер в обратном порядке.

ну, должно быть так вообще-то:
х
...
5
4
3
2
1
0
-1
-2
-3
-4
-5
...
-х

кстати, а как реализовать для строки:
-х... -5 -4 -3 -2 -1 0 1 2 3 4 5... х

@Busine2009 · 28.05.2011, 16:40

diletant2,
с первого раза может не получиться посмотреть коды полей (тяжело выделить в ячейке поле).
Чтобы увидеть код, нужно выделить серое. Для этого нужно сделать следующее:

поставьте курсор слева от серого;
нажмите на клавиатуре и удерживайте клавишу Ctrl;
нажмите на клавиатуре клавишу Стрелка вправо столько раз, чтобы полностью выделить число.

Далее нажмите на клавиатуре клавишу Контекстное меню - Коды/значения полей.

Скрыть поле тоже может сразу не получиться. Чтобы скрыть поле, выделите всё поле и вызовите контекстное меню, как было написано выше, - Обновить поле.

Было использовано поле = (Formula), функция MIN.
В первой ячейке число набито от руки (это просто текст).

Для обновления всех полей в таблице:

выделите таблицу;
нажмите на клавиатуре клавишу F9.

@Busine2009 · 28.05.2011, 16:51

Во втором пункте Shift, а не Ctrl.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@diletant2 6 / 4 / 0 Регистрация: 02.05.2011 Сообщений: 102

	Обратная нумерация списка 20.05.2011, 02:33. Показов 33391. Ответов 35 Метки нет (Все метки) возможна ли в MS Word обратная нумерация списка, скажем - от 10 до 0? 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	21.05.2011, 00:59
	Да. Через поле {=11 - {Seq x}}. {} вставить по Ctrl-F9. Добавлено через 11 часов 7 минут Нумерацию увидите, обновив поля (по F9 или через меню по правой кнопке). 1

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	21.05.2011, 23:59
	Взять кол-во выделенных строк можно, но это надо уже смотреть метод ComputeStatistics в VBA. 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	22.05.2011, 16:28
	Не, наоборот. Кодом можно как угодно нумеровать. Но не каждый решится! 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	23.05.2011, 00:57
	А что, мои пол́я — не удобны? 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	24.05.2011, 00:56
	А макрос часа 2 писать. Легче просто снизу вверх читать нумерованный список! 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	28.05.2011, 07:43
	diletant2, пока только предполагается решение, если в первом столбце в каждой ячейке будет число (т.е. нет пустых ячеек в первом столбце): т.е. каждая ячейка в первом столбце должна содержать порядковый номер в обратном порядке. Выложите образец файла (данные можете видоизменить, если они секретные). 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	28.05.2011, 16:51
	Во втором пункте Shift, а не Ctrl. 0