Word 2016 - Последовательная нумерация уникальными номерами
3/21/2018

Привет,

Я не уверен, правильно ли и убедительно излагаю это, но позвольте мне попробовать.

- У меня есть файл Word с множеством похожих таблиц. Таблицы по сути одинаковы, с одинаковыми заголовками и количеством столбцов.

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

- Требование состоит в том, чтобы пронумеровать эту ячейку, перечислить проблемы (возможно, в пользовательском оглавлении), чтобы все проблемы были перечислены и связаны с ними. Примечание: Каждый выпуск должен быть связан с уникальным номером, который не должен меняться.

Я попытался создать новый стиль для применения к этой ячейке (который связан с многоуровневым списком, чтобы он последовательно увеличивался), чтобы при создании новой проблемы пользователи могли применять стиль к этой конкретной ячейке. В конце концов, просто создайте пользовательское оглавление только в этом стиле, чтобы получить список проблем.

Проблема здесь в том, что, когда пользователь добавляет новую строку/проблему (в существующую или новую аналогичную таблицу в середине документа), нумерация меняется. и затем следующим выпускам присваиваются номера n+1 соответственно. Этого не ожидается, и каждая проблема, которой был присвоен номер, должна сохранять его независимо от добавления/удаления строки.

Возможно ли это в Word?

Правильный Ответ

Mr. Wendell Hyatt
12/24/2021

Спасибо тебе, Дуг. Я ждал ответа о размещении, но ваш метод имеет больше смысла. Я сохранил ваш макрос в своем модуле ресурсов следующим образом: Sub Numberaddononsequential() 'Дуг Роббинс 2018-03-27' Вставляет следующий номер в точку вставки, независимо от того, где он находится в документе' http://answers.microsoft.com/en-us/msoffice/forum/msoffice_word-mso_windows8-mso_2013_release/word-2016-sequential-numbering-with-unique-numbers/25757033-a2da-474f-8ef8-0e3af903d192?page=2 [http://answers.microsoft.com/en-us/msoffice/forum/msoffice_word-mso_windows8-mso_2013_release/word-2016-sequential-numbering-with-unique-numbers/25757033-a2da-474f-8ef8-0e3af903d192?page=2 ] "При ошибке GOTO firstNumber" переменная еще не выбрана.Текст = активный документ.Переменные ("Последний номер").Значение + 1 Выбор.Свернуть wdCollapseEnd активный документ.Переменные ("Последний номер").Значение = Активный документ.Переменные ("Последний номер").Значение + 1 Выход Под первым номером: "Нет переменной - установите один выбор.Текст = 1 Выделенный фрагмент.Свернуть wdCollapseEnd активный документ.Переменные ("Последний номер") = 1 Конечный суб

Помогло людям

Похожие вопросы

790

Просмотров

10

Ответов

788

Просмотров

1

Ответов