Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 09.03.2019, 15:07   #1
Asker2019
Новичок
Джуниор
 
Регистрация: 09.03.2019
Сообщений: 2
По умолчанию повтор операций в макросе

Есть такой макрос:

Код:
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, "000000")
        ' 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) на заданное число, печатая каждый новый экземпляр.
Нужно вставить в один документ серийный номер в двух местах.
Две закладки с одним именем нельзя сделать.
Как сделать так, чтобы макрос сначала увеличивал первое указание серийного номера (например, закладка Serial1), потом второе указание того же серийного номера ровно таким же образом (например, закладка Serial2), и только потом отправлял на печать?
Asker2019 вне форума Ответить с цитированием
Старый 09.03.2019, 17:37   #2
Asker2019
Новичок
Джуниор
 
Регистрация: 09.03.2019
Сообщений: 2
По умолчанию

вопрос снят
ответ есть здесь: http://www.msofficeforums.com/word-v...numbering.html
Asker2019 вне форума Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Повтор сообщения Leks123 PHP 1 12.08.2013 19:28
Повтор подпрограммы MNaz Паскаль, Turbo Pascal, PascalABC.NET 2 24.01.2012 01:22
Повтор madmaniac Общие вопросы C/C++ 2 21.02.2011 21:45
Повтор в список Enigmatic Microsoft Office Excel 6 27.11.2009 01:13
Как прописатьв макросе повтор... Bu$ter Microsoft Office Excel 6 18.09.2008 09:40