Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.03.2019, 14: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, 16:37   #2
Asker2019
Новичок
Джуниор
 
Регистрация: 09.03.2019
Сообщений: 2
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Повтор сообщения 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 20:45
Повтор в список Enigmatic Microsoft Office Excel 6 27.11.2009 00:13
Как прописатьв макросе повтор... Bu$ter Microsoft Office Excel 6 18.09.2008 09:40