stuard пишет: Как автоматизировать процесс печати. Очень неудобно каждый раз вручную прописывать номера талонов на каждой из частей. Потом печатать этот талон. Потом опять вписывать следующий номер..
Заранее спасибо за ответы.
Можно предложить несколько иной способ (см. вложенный файл)
Это документ из 1000 страниц. В колонтитул вставлена надпись, текст талона - внутри этой надписи. в трех местах текста вставлена формула {={DOCPROPERTY "Номер документа"}-1+{Page}}
поле {DOCPROPERTY "Номер документа"} используется для задания начального значения номера талона, поле {Page} используется для увеличения номера на единицу на каждой странице.
Для удобства работы воспользуйтесь макросом:
Sub Номер_1_го_талона()
'
thenumber = InputBox("Введите номер первого талона", "Name")
ActiveDocument.CustomDocumentProperties("Номер документа").Delete 'Если не удалить, то следующая строка вызовет ошибку
With ActiveDocument.CustomDocumentProperties
.Add Name:="Номер документа", _
LinkToContent:=False, _
Type:=msoPropertyTypeNumber, _
Value:=thenumber
End With
ActiveDocument.PrintPreview 'Обновляем поля
ActiveDocument.ClosePrintPreview
End Sub
Порядок работы:
Открываем документ.
Запускаем макрос.
В появившемся окне вводим требуемый начальный номер бланка, после нажимаем "OK".
Отправляем документ на печать.
Если требуется больше бланков, запускаем макрос, вводим новое начальное значение и отправляем на печать, ит.д. ...
В результате получаем требуемое число бумажных бланков с уникальными номерами.
Затем можно воспользоваться вашей программой для вставки штрих-кодов на готовые бумажные бланки.
P.S.
Мне незнакома специфика вашей работы, поэтому я остановился на 1000 страниц в документе. В одном месте вы пишете, что печатаете сразу 5000 бланков. Быстро увеличить количество страниц в документе с 1000 до 5000 , чтобы вновь и вновь не вводить начальное значение, можно, запустив следующий макрос:
Sub Добавить_4000_страниц()
For i = 1 To 4000
Selection.InsertBreak Type:=0
Next i
End Sub
Несмотря на большое количество страниц файл документа "весит" очень мало.
Post's attachmentsТалон правка новый в2.docx 26.19 Кб, 4 скачиваний с 2014-07-18
You don't have the permssions to download the attachments of this post.
