Автоматическая нумерация в ворде: Нумерация ячеек в таблице в Word

Как пронумеровать страницы в Ворде: пошаговая инструкция

Оглавление

• Автоматическая нумерация страниц
• Оформление нумерации римскими цифрами или буквами

Основной проблемой при оформлении реферата, курсовой или дипломной работы считается нумерация. Ученики и студенты тратят огромное количество нервов и своего времени, чтобы сделать нумерацию страниц в Ворде. Да, никто и не спорит, что это не так просто, но и тратить часы напролёт тоже не выход. Для того чтобы, разобраться и понять уже наконец-то, как делается нумерация страниц, нужно набраться терпения и запастись 10 минутами. Вашему вниманию представлена статья, с помощью которой вы забудете о грядущей проблеме. И будем надеяться, что впредь на будущее в памяти отложится хотя бы один способ решения.

Автоматическая нумерация страниц

Чтобы пронумеровать весь документ, без исключения, следует выполнить следующие шаги. Открыть документ Microsoft Word, перейти во вкладку «Вставка».

Именно в данном разделе в текстовом редакторе, можно вставить что угодно, пусть то будет: рисунок, фигуры, диаграмма, дата и время, всевозможные надписи и целые формулы. В нашем случае, нужен подраздел «Колонтитулы». Именно он отвечает за расстановку нумерации по документу.

Выбрав все необходимые разделы, нужно кликнуть по пункту «Номер страницы». Из выпадающего списка возможного оформления нумеровки, следует выбрать более подходящее расположение цифр на странице.

Из представленных 4 видов нумерования, указать, к примеру «Вверху страницы».

Далее из всплывающего окна, кликнуть по нужному варианту: «По левому краю», «По центру» или «По правому краю».

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

Оформление нумерации римскими цифрами или буквами

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

Данный способ также считается сквозным. Когда вне зависимости от того, к какой части относится страница: введение, заключение, вывод, сноска, теоретическая или практическая часть. Нумеруется весь документ от первого и до последнего листа включительно. Благодаря, расширенным функциям текстового редактора Майкрософт Ворд, можно легко и быстро сделать нумерацию страниц в зависимости от требований пользователя.

Правильно нумеровать в виде букв или римских цифр помогут следующие действия.

1. Открыть вкладку «Вставка» и выбрать раздел «Колонтитулы»;
2. Кликнуть по «Номер страницы» и перейти по пункту «Формат номеров страниц»;
3. В новом открывшемся окне кликнуть по стрелочке напротив надписи «Формат номера». И указать понравившийся вариант оформления нумерации из приведенного списка.
4. Нажать на «ОК». В документе все страницы будут пронумерованы, исходя из выбранного вами способа.

Автоматическая нумерация ссылок на список литературы в документе Word

В этой статье рассмотрим эффективный механизм использования автоматических ссылок в документе Word. Это может пригодиться тем, кто использует в тексте документа (статьи, реферата, диплома или диссертации) ссылки на список литературы в конце документа. Автоматические ссылки — это указатели (числа) в тексте, которые можно легко обновить в случае, если поменялась последовательность источников, на которые ссылаются эти указатели. Например, в случае ручной нумерации, если был удален источник №20 из 120   существующих, то придется вручную заменить в тексте ссылки на 100 источников, следующих за удаленным. Автоматическая нумерация ссылок после удаления одного источника все идущие за ним сделает меньше на единицу, и т. д.

Используемый в данной статье способ оформления автоматических ссылок на литературу предполагает указание ссылок в квадратных скобках типа [N], где N — номер источника в списке литературы в конце публикации.

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

Для использования этого способа список литературы в конце публикации оформим с использованием автоматической нумерации. Gроще говоря, с помощью нумерованного списка, созданного штатными свойствами Word.

 

Чтобы сделать автоматическую ссылку на источник в Word 2007 или более новом, выполняем следующее:

1) переводим курсор в любое место текста в первом пункте списка литературы (например, на название)

2) переходим на ленту «Вставка», далее выбираем «Закладка». Появилось окно добавления закладки, в котором необходимо ввести имя закладки и нажать кнопку «Добавить». Наименование закладки может быть любое, но не более 40 символов, не содержащее пробелов и других спецсимволов (кроме знака подчеркивания). Называть закладку удобнее всего по фамилии автора и паре ключевых слов из названия статьи, например «Hashim_IT_decision_making».

Если вы уверены, что данного автора у вас только одна статья, то можно оставить только фамилию.

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

3) В тексте, в месте, где нужно сослаться на вышеуказанную статью, вставляем квадратные скобки без пробела и ставим курсор между ними.

 

 

4) Теперь, чтобы поставить автоматическую ссылку, необходимо сделать перекрёстную ссылку на установленную закладку.

Для этого переходим на ленту «Вставка», нажимаем «Перекрестная ссылка». Появилось окно, в котором в списке «Тип ссылки» нужно выбрать «Закладка», а в списке «Вставить ссылку на» — выбрать «Номер абзаца». Выбираем имя созданной закладки и нажимаем «Вставить».

  

Внутри квадратных скобок появилась цифра 1, что соответствует порядковому номеру этой публикации в списке литературы.

 

 

Для того, чтобы ссылки в тексте автоматически обновились, нужно выполнить два действия:

1) Выделить весь текст, в котором следует перенумеровать ссылки. Будьте осторожны с выделением текста во всем документе (Ctrl+A). Word расценивает автоматическое оглавление как набор ссылок, поэтому если выделить его вместе с текстом, оглавление обновится тоже.

2) Нажать F9

После нажатия на F9 ссылки в тексте обновятся и приобретут значение, соответствующее нахождению источников в списке литературы.

Если вы удалили источники из списка, не поленитесь после обновления просмотреть весь документ еще раз. «Подвешенные» ссылки на несуществующий источник станут обозначены как

«Ошибка, закладка не найдена». Не забудьте удалить их из основного текста.

| Windows | Опубликовано: 25.05.2015 12:00 | 21

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

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

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

Иллюстрация: Лиза Хорнунг, Getty Images/iStockPhoto

Нумерованные абзацы распространены в некоторых отраслях. Например, юридические контракты полны пронумерованных абзацев. К сожалению, Microsoft Word не предлагает одну из своих опций «щелкните прямо здесь» для нумерации абзацев, но это можно сделать с помощью пользовательского стиля. Я знаю, что многие пользователи ненавидят стили Word, но они обеспечивают эффективную работу в Word. В этой статье я покажу вам, как создать собственный стиль, который нумерует абзацы.

СМ.: Политика установки программного обеспечения (TechRepublic Premium)

Обязательная к прочтению информация о Windows

• Виндовс 11 22х3 уже здесь
• Контрольный список: защита систем Windows 10
• Как очистить кеш DNS в Windows 10
• Защитите свою сеть с помощью внешних служб безопасности Майкрософт

Я использую Microsoft 365 в 64-разрядной системе Windows 10, но вы можете использовать более раннюю версию.

Для вашего удобства вы можете скачать демонстрационные файлы .docx и .doc. Веб-приложение Word не поддерживает пользовательские стили.

Документ Word

При использовании любого стиля вы можете применить стиль при вводе содержимого или применить стиль постфактум. Мы сделаем последнее, используя двухстраничный документ, показанный на Рисунок A . В этом документе используются Заголовок 1, Заголовок 2 и Обычный.

Рисунок А

Мы создадим стиль, который нумерует абзацы.

Мы знаем, что хотим нумеровать абзацы последовательно, не меняя никакого другого формата. Word применяет обычный стиль при вводе текста, поэтому мы начнем с него. Хотя пример немного надуманный, потерпите меня, потому что он простой и не будет отвлекать от техники.

Хотя этот метод требует нескольких шагов, ни один из них не сложен в реализации. Вот чего ожидать:

• Мы скопируем стиль Normal и переименуем его.
• Мы добавим формат нумерации к новому стилю на основе Обычный.
• Мы изменим встроенный стиль Заголовок 2, чтобы копия Обычный следовала за жестким возвратом. Этот последний шаг может быть необходимым, а может и не быть.

Первое, что нам нужно сделать, это создать копию Normal. Мы не меняем форматирование текста; мы только добавляем число в первую строку. В его случае проще скопировать существующий стиль, чем создавать его с нуля.

Как скопировать обычный стиль в Word

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

1. Щелкните внутри любого абзаца в обычном стиле.
2. Нажмите кнопку «Дополнительно» для галереи «Быстрые стили» в группе «Стили» на вкладке «Главная».
3. В появившемся списке выберите «Создать стиль».
4. В появившемся диалоговом окне введите значимое имя для нового стиля, например 9. 0062 NormalNumberedPara ( Рисунок B ).

Рисунок В

Назовите новый стиль, основанный на Normal.

5. Нажмите «Изменить».
6. В появившемся диалоговом окне выберите «Абзац» из раскрывающегося списка «Тип стиля» ( Рисунок C ). Прямо сейчас этот новый стиль такой же, как обычный.

Рисунок С

Настройте свойства нового стиля

7. Нажмите кнопку «Формат» и выберите «Нумерация».
8. Выберите формат нумерации — я выбрал формат, показанный на Рисунок D .

Рисунок D

Выберите стиль нумерации.

9. Дважды нажмите OK.

Как вы можете видеть на Рисунок E , абзац, который вы щелкнули в самом начале, теперь пронумерован.

Рисунок Е

Нумерованный абзац.

Чтобы продолжить нумерацию, щелкните абзац и примените новый стиль. (Вы не можете видеть полное имя на миниатюре.) Если новый стиль не совсем подходит, измените его.

Как настроить новый стиль в Word

Давайте на минутку решим, нравится ли вам левый отступ как есть. Если нет, вы можете изменить его на уровне стиля, прежде чем применять его дальше. Для этого:

1. Выберите числа, щелкнув любой из них. Цифры будут иметь серый фон при правильном выборе.
2. Щелкните выделенное правой кнопкой мыши и в появившемся подменю выберите «Настроить отступы списка».
3. В появившемся диалоговом окне установите для параметра Позиция номера значение 0”.
4. Установите для параметра Отступ текста значение 0” ( Рисунок F ).

Рисунок F

Исправьте отступ.

5. Нажмите OK и подтвердите переход на новый стиль.

Рисунок G

Новый стиль почти правильный.

Как вы можете видеть на Рисунок G , абзац теперь переносится на левое поле, но отступ между числом и текстом в первой строке довольно большой. Чтобы исправить это, повторите шаги, описанные выше, и добавьте позицию табуляции. Например, если вы хотите уменьшить пробел до двух символов, установите табуляцию на 0,25.

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

Как добавить новый стиль к заголовку 2 в Word

Если вы хотите избежать изменения стилей при вводе содержимого, измените стиль Заголовок 2, чтобы новый стиль следовал за ним. Другими словами, когда вы стилизуете заголовок как «Заголовок 2», а затем нажимаете Enter для переноса на следующую строку, стиль автоматически вызывает новый стиль и нумерует абзац. Это действительно здорово.

Для этого выполните следующие действия:

1. Щелкните правой кнопкой мыши заголовок 2 в галерее и выберите «Изменить».
2. В раскрывающемся списке «Стиль для следующего абзаца» выберите новый стиль — «Обычный номер пункта» ( Рисунок H ).
3. Нажмите OK.

Рисунок H

Изменить заголовок 2.

Это изменение не будет работать для существующих заголовков заголовка 2, но будет работать для нового контента. Введите и настройте стиль текста заголовка с помощью Заголовок 2 и нажмите Enter. Следующая строка будет начинаться с цифры! Все, что вам нужно сделать, это ввести текст.

Прямо сейчас числа не перезапускаются в каждом разделе, что вам может понадобиться. Если это так, щелкните правой кнопкой мыши первое число после заголовка. В появившемся подменю выберите «Перезагрузить с 1». Вам придется делать это для каждого нового раздела, что будет немного утомительно в большом документе.

Сьюзен Харкинс

Опубликовано: 22 апреля 2022 г., 9:14 PDT Изменено: 22 апреля 2022, 9: 14:00 по тихоокеанскому времени Увидеть больше Программное обеспечение

См.

также

• Microsoft Office: получите пожизненную лицензию и второй экран ноутбука по одной цене (Академия TechRepublic)
• Шпаргалка по Windows 11: все, что вам нужно знать (ТехРеспублика)
• Windows PowerToys: шпаргалка (ТехРеспублика)
• Лучшее программное обеспечение для шифрования 2022 года (ТехРеспублика)
• Программное обеспечение EDR: выбор лучших инструментов EDR для вашего бизнеса (ТехРеспублика)
• Лучшее программное обеспечение для бизнеса и конечных пользователей (TechRepublic на Flipboard)

Поделиться: Как автоматически нумеровать абзацы с помощью стиля в Word

• Майкрософт
• Программное обеспечение

Выбор редактора

• Изображение: Rawpixel/Adobe Stock ТехРеспублика Премиум

  Редакционный календарь TechRepublic Premium: ИТ-политики, контрольные списки, наборы инструментов и исследования для загрузки

  Контент TechRepublic Premium поможет вам решить самые сложные проблемы с ИТ и дать толчок вашей карьере или новому проекту.

  Персонал TechRepublic

  Опубликовано: 3 февраля 2023 г., 15:00 по восточному стандартному времени Изменено: 3 февраля 2023 г., 15:16 по восточному поясному времени Читать далее Узнать больше
• Изображение: Nuthawut/Adobe Stock
• Изображение: WhataWin/Adobe Stock Безопасность

  Основные угрозы кибербезопасности на 2023 год

  В следующем году киберпреступники будут как никогда заняты. Готовы ли ИТ-отделы?

  Мэри Шеклетт

  Опубликовано: 28 ноября 2022 г. , 8:09 по тихоокеанскому времени Изменено: 23 декабря 2022 г., 7:09 по восточному поясному времени Читать далее Узнать больше Безопасность
• Изображение: Разные фотографии/Adobe Stock Облако

  Salesforce дополняет свой технологический стек новыми интеграциями для Slack, Tableau

  Компания, которая в течение нескольких лет закупала лучшие в своем классе продукты, интегрирует платформы для создания синергии для скорости, понимания и совместной работы.

  Карл Гринберг

  Опубликовано: 8 декабря 2022 г., 6:00 по тихоокеанскому времени Изменено: 8 декабря 2022 г. , 6:55 по тихоокеанскому времени Читать далее Увидеть больше Облако
• физкес / iStock
• Изображение: Bumblee_Dee, iStock/Getty Images Программное обеспечение

  108 советов по Excel, которые должен усвоить каждый пользователь

  Независимо от того, являетесь ли вы новичком в Microsoft Excel или опытным пользователем, эти пошаговые руководства принесут вам пользу.

  Персонал TechRepublic

  Опубликовано: 18 августа 2022 г., 13:00 PDT Изменено: 11 ноября 2022 г., 13:47 PST Читать далее Увидеть больше Программное обеспечение

Документы с автономером

Многие люди ежедневно получают доступ к материалам этого веб-сайта.

Большинство просто берите то, что они хотят, и бегите. Это нормально, если они не продажа материала как собственного; однако, если ваша производительность прибыль от материала, который вы использовали, пожертвование от денег, которые вы сэкономили, поможет обеспечить продолжение доступность этого ресурса. Нажмите соответствующую кнопку выше, чтобы получить доступ к PayPal.

Автоматическая нумерация документов

Некоторые из макросов, показанных ниже на этой странице, некоторое время были доступны на моем старом сайте, но я подумал, что их стоит интегрировать, и улучшая различные функции в простой надстройке (для Версии Windows Word с 2007 г. до настоящего времени) для тех, кому неудобно использовать макросы.

Надстройка в формате шаблона DOTM предназначена для размещения в папке запуска Word и, таким образом, для загрузки вместе с Word. Если вы не изменили предпочтительную папку запуска, это может быть находится (в англоязычных версиях Windows), набрав

%appdata%\Microsoft\Word\Startup

в адресной строке проводника Windows и нажмите Enter.

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

Надстройка сохраняет настройки пользователя и текущее значение возрастающего числа в реестр.

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

Надстройка использует элемент управления текстовым содержимым для отображения числа и любого связанного с ним текста в документе. Всякий раз, когда процесс запускается, он сначала проверяет, есть ли являются текстом (или форматированным текстом) элементы управления содержимым, расположенные в любом месте документа. Если такое существуют элементы управления, их названия будут перечислены в пользовательской форме (см. далее) вместе с заголовком по умолчанию «Увеличивающийся номер», который будет использоваться если нет предпочтительного существующего элемента управления контентом.

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

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

При закрытии диалогового окна отображается следующее диалоговое окно.

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

Есть текстовые поля для добавления необязательных общих начальных и конечных текстов, и вы можете установить количество цифр из раскрывающегося списка на любое значение от 1 до 10, что должно быть достаточно для охвата большинства обстоятельств.

Добавленные вами изменения отображаются оранжевым шрифтом в нижней части рамки, которая заполняет нижнюю часть пользовательской формы по мере их создания, чтобы вы могли видеть, как число будет отображаться в документе, прежде чем вы его введете.

Также можно выбрать значение шага, которое определяет следующий номер, который будет использоваться, например. установка шага 2 произведет последовательность чисел 1, 3, 5, 7 и т. д. (при условии, что начальный номер 1).

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

Сохраняется следующее число, значение пропуска, формат числа и связанные с ним тексты. с заголовком управления содержимым в реестре для облегчения вызова следующего пронумерованного документа.

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

Атрибуты шрифта и абзаца вставленного номера зависят от формата в позиции курсора. Надстройка не форматирует вставленный управление контентом и связанные с ним тексты.

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

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

Диалоговое окно надстройки оснащено контекстно-зависимой справкой.

 

Опция «Печать документа»

Некоторые пользователи могут захотеть распечатать партию идентичных документов. нумерованные документы. Опция «Печать документа» позволяет это сделать.

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

Существует еще один вариант уменьшения числа, т.е. начинает нумерацию с начального числа и считает в обратном порядке. Этот параметр содержит ошибку, связанную с неправильным выбором, который будет производить отрицательные числа. Однако в маловероятном случае где вы можете захотеть включить отрицательные числа, предупреждение не препятствует созданию печатных документов с такими отрицательные числа.

Когда используется опция печати, индикатор хода выполнения остается отслеживать процесс

Кнопка сброса (ниже) очищает реестр от ВСЕХ настроек связаны с надстройкой и поэтому должны использоваться с осторожностью, или перед необратимым удалением надстройки.

 

 

Вставка числа из ini-файла

Здесь числовая последовательность хранится в редактируемом текстовом файле с именем Settings.ini, который хранится здесь, в папке запуска Word и отображается элемент управления содержимым (или элементы управления) под названием «Число», предварительно вставленный в шаблон.

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

Вместо использования Options.DefaultFilePath() вы можете ввести полный путь к файлу.

Тот же файл Settings.ini можно использовать для хранения числовых последовательностей для других макросов по мере необходимости.

Макросы должны храниться в модуле в шаблоне документа — не в обычном шаблоне!

Приведенный ниже код макроса вставит увеличивающееся число в управление содержимым, здесь показано с некоторым фиксированным текстом в правой части заголовка документа, таким образом. Однако элемент управления содержимым можно вставить в любом месте документ.

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

Примечание Вы найдете еще один пример этой техники на Страница примеров макросов vba.

Опция явная
Грэм Мэр — https://www.gmayor.com — Последнее обновление — 12 ноября 2020 г.
Частный DocNum как строка
Private sName как строка, sPath как строка
Private bCC As Boolean, bReset As Boolean
Частный oCC как ContentControl
Частная история как диапазон
Const sFormat As String = «000#»

Sub AutoNew() ‘Добавить номер при создании нового документа

Для каждой истории в ActiveDocument. StoryRanges
Для каждого oCC в oStory.ContentControls
Если oCC.Title = «Число» Тогда
bCC = Истина
Выход для
Выход для
Конец, если
Следующий ОСС
Если oStory.StoryType <> wdMainTextStory, тогда
Пока нет (oStory.NextStoryRange ничего не значит)
Установить oStory = oStory.NextStoryRange
Для каждого oCC в oStory.ContentControls
Если oCC.Title = «Число» Тогда
bCC = Истина
Выход для
Выход для
Конец, если
Следующий ОСС
Венд
Конец, если
Следующая история

Если не скрытая копия, то
MsgBox «Контроль содержимого «Число» отсутствует!», vbCritical
Выход Sub
Конец, если
sPath = Options.DefaultFilePath(wdStartupPath) & «\Settings.ini»

DocNum = System.PrivateProfileString(sPath, «MacroSettings», «DocumentNumber»)
Если DocNum = «» Then ‘Запись файла настроек не существует
DocNum = 1 ‘Итак, установите начальный номер
Else ‘Запись в файле настроек существует, поэтому увеличьте ее на 1
DocNum = DocNum + 1
End If

Для каждой истории в ActiveDocument. StoryRanges
Для каждого oCC в oStory.ContentControls
Если oCC.Title = «Число» Тогда
oCC.Range.Text = Формат(DocNum, sFormat)
Конец, если
Следующий ОСС
Если oStory.StoryType <> wdMainTextStory, тогда
Пока нет (oStory.NextStoryRange ничего не значит)
Установить oStory = oStory.NextStoryRange
Для каждого oCC в oStory.ContentControls
Если oCC.Title = «Число» Тогда
oCC.Range.Text = Формат(DocNum, sFormat)
Конец, если
Следующий ОСС
Венд
Конец, если
Next oStory

‘Сохранить номер в файле INI
System.PrivateProfileString(sPath, «MacroSettings», «DocumentNumber») = Номер документа
lbl_Exit:
Выход Sub
End Sub

Sub SaveDocumentAs()
sPath = Options.DefaultFilePath(wdStartupPath) & «\Settings.ini»
DocNum = System.PrivateProfileString(sPath, «MacroSettings», «DocumentNumber»)
Если не ActiveDocument.Path = «» Тогда
‘Документ уже был сохранен, поэтому сохраните его повторно
АктивДокумент. Сохранить
Else ‘Документ ранее не сохранялся, поэтому сохраните его
‘В текущей папке документов с именем, включающим номер
С диалогами (вддиалогфилесавеас)
.Name = «Документ» и формат (DocNum, sFormat)
.Показать
Конец с
Конец, если
‘Закрыть документ
ActiveDocument.Close
lbl_Exit:
Выход Sub
End Sub

Sub AutoClose() ‘Перерабатывает номер, если документ не был сохранен.’
sPath = Options.DefaultFilePath(wdStartupPath) & «\Settings.ini»
DocNum = System.PrivateProfileString(sPath, «MacroSettings», «DocumentNumber»)
‘Проверить, не сохранен ли документ
Если ActiveDocument.Name нравится «Документ#*», тогда
‘Предложить пользователю возможность сэкономить
Если MsgBox(«Документ не сохранен.» & vbCr & «Вы хотите сохранить перед закрытием?», vbYesNo, «MacroSettings») = vbYes Then
С диалогами (вддиалогфилесавеас)
.Name = «Документ» и формат (DocNum, sFormat)
. Показать
Конец с
Else ‘ Закрыть документ и повторно использовать номер

Для каждой истории в ActiveDocument.StoryRanges
Для каждого oCC в oStory.ContentControls
Если oCC.Title = «Число» Тогда
oCC.Range.Text = Формат(DocNum, sFormat)
Если DocNum = Val(oCC.Range.Text), то
bСброс = Истина
Конец, если
Конец, если
Следующий ОСС
Если oStory.StoryType <> wdMainTextStory, тогда
Пока нет (oStory.NextStoryRange ничего не значит)
Установить oStory = oStory.NextStoryRange
Для каждого oCC в oStory.ContentControls
Если oCC.Title = «Число» Тогда
oCC.Range.Text = Формат(DocNum, sFormat)
Если DocNum = Val(oCC.Range.Text), то
bСброс = Истина
Конец, если
Конец, если
Следующий ОСС
Венд
Конец, если
Далее oStory

Если bReset = True, то
MsgBox «Текущий номер » & «будет переработан.», vbOKCancel, «Утилизация»
System. PrivateProfileString(sPath, «MacroSettings», «DocumentNumber») = Номер Документа — 1
Конец, если
ActiveDocument.Saved = Истина
Конец, если
Конец, если
lbl_Exit:
Выход Sub
End Sub

Sub ResetStartNo()
‘Сбросьте номер, показанный в текущем документе, и запишите ‘его как последний использованный номер
sPath = Options.DefaultFilePath(wdStartupPath) & «\Settings.ini»
‘Получить текущий номер из файла настроек
DocNum = System.PrivateProfileString(sPath, «MacroSettings», «DocumentNumber»)
‘Попросите пользователя ввести новое число
DocNum = InputBox(«Сбросить номер документа?», «Сбросить», DocNum)
‘Запишите входной номер как docvariable
Для каждой истории в ActiveDocument.StoryRanges
Для каждого oCC в oStory.ContentControls
Если oCC.Title = «Число» Тогда
oCC.Range.Text = Формат(DocNum, sFormat)
Конец, если
Следующий ОСС
Если oStory. StoryType <> wdMainTextStory, тогда
Пока нет (oStory.NextStoryRange ничего не значит)
Установить oStory = oStory.NextStoryRange
Для каждого oCC в oStory.ContentControls
Если oCC.Title = «Число» Тогда
oCC.Range.Text = Формат(DocNum, sFormat)
Конец, если
Следующий ОСС
Венд
Конец, если
Следующая история
‘Сохраните введенный номер
System.PrivateProfileString(sPath, «MacroSettings», «DocumentNumber») = Номер документа
‘Установить новый номер в качестве отображаемого содержимого переменной
lbl_Exit:
Выход Sub
End Sub

Увеличение числа в документе каждый раз, когда документ открыт

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

Строка формата (sFormat) используется для отформатируйте число, здесь «0000», чтобы отформатировать число до четырех цифры с ведущими нулями для чисел с меньшим количеством цифр.

Добавьте в документ следующий макрос (не обычный шаблон) и сохраните документ в формате с поддержкой макросов (DOCM)

Подавтооткрыть()
Dim oVars как переменные
Dim bVar как логическое значение
Dim lngCount As Long
Установить oVars = ActiveDocument.Sub AutoOpen()
Dim oStory As Range
Dim oCC как ContentControl
Dim bCC как логическое значение
Dim lngCount As Long, DocNum As Long
Const sFormat As String = «000#»

Для каждой истории в ActiveDocument.StoryRanges
Для каждого oCC в oStory.ContentControls
Если oCC.Title = «Число» Тогда
DocNum = Val(oCC.Range.Text) + 1
oCC.Range.Text = Формат(DocNum, sFormat)
Конец, если
Следующий ОСС
Если oStory. StoryType <> wdMainTextStory, тогда
Пока нет (oStory.NextStoryRange ничего не значит)
Установить oStory = oStory.NextStoryRange
Для каждого oCC в oStory.ContentControls
Если oCC.Title = «Число» Тогда
DocNum = Val(oCC.Range.Text) + 1
oCC.Range.Text = Формат(DocNum, sFormat)
Конец, если
Следующий ОСС
Венд
Конец, если
Следующая история
АктивДокумент. Сохранить
lbl_Exit:
Выход Sub
Конец подписки
Переменные
Для каждого oVar в ActiveDocument.Variables
Если oVar.Name = «varNum» Тогда
bVar = Истина
lngCount = oVar.Value + 1
Выход для
Конец, если
Следующий оВар
Если не bVar, тогда lngCount = 1
oVars(«varNum»).Value = lngCount
Упдатеаллфиелдс
АктивДокумент. Сохранить
lbl_Exit:
Выход Sub
End Sub

Каждый раз, когда документ открывается, макрос запускается, увеличивается элемент управления содержимым отображает и сохраняет изменение

Если вам нужно изменить номер, отредактируйте содержимое контроль(и).