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

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

Sub MySerial()

Dim rngSerialLocation As Range     Dim intSerialNum As Integer     Dim strSerialNum As String     Dim docCurrent As Document     Dim intNumCopies As Integer     Dim intCount As Integer

' set ref to current active doc     Set docCurrent = Application.ActiveDocument     ' set ref to the bookmarked serial number     Set rngSerialLocation = docCurrent.Bookmarks("Serial").Range

' get the starting number     intSerialNum = Val(rngSerialLocation.Text)

' get the number of copies required     intNumCopies = Val(InputBox$("How many Copies?", _       "Print Serialized", "1"))



For intCount = 1 To intNumCopies         ' print the document         docCurrent.PrintOut Range:=wdPrintAllDocument         ' increment the serial number         intSerialNum = intSerialNum + 1         ' put into formatted version         strSerialNum = Format(intSerialNum, "00000")

' stuff into proper place         rngSerialLocation.Text = strSerialNum     Next intCount

' reset the bookmark, since the updating procedure     ' wipes out the old one     docCurrent.Bookmarks.Add Name:="Serial", _       Range:=rngSerialLocation End Sub

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

Макрос также предполагает, что ваш серийный номер состоит в основном из некоторого числового значения, которое изменяется с каждой итерацией. Вы можете изменить приращение серийного номера, а также его форматирование в цикле For …​ Next внутри макроса.

_Примечание: _

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

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (9540) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Using_Sequential_Document_Serial_Numbers [Использование последовательных порядковых номеров документов].