Є несоклько варіантів.
Найпростіший (для поліграфістів, але не для фрезерувальників) - використання Print Merge. Але якщо я правильно пам'ятаю, Мержа змінні дані не тільки в чергу друку, але і з можливістю зберігати в макеті (посторінково) - з 15 версії, в 13 це буде працювати криво. Так що в 15 версії ви легко розташуйте за шаблоном всі свої 350 номерків разом з логотипом і необхідними іншими лініями - головне правильно створити шаблон.
Але, з досвіду, ручна вбівка номерів не таке довге заняття, і при ручному способі зазвичай йде виграш, що номерки комбінуються за розміром заготовок (наприклад, на заготівлі 30х40 см по 25 шт.), Що дасть перевагу за часом, ніж з пронумерованих макросом номерків кожен раз заново збирати розташування по заготівлі.
Один раз вирішували таку задачу - на лазерному гравера робили 1000 номерків. По розташуванню була можливість запускати за цикл 100 номерків. Зробили шаблон розташування по листу, разом з нумраціей виду "Ж01". "Ж99", "000". Далі зберегли як шаблон, з шаблону по функції "пошук і заміна" замінювали все "Ж" сначал на "1", потім на "2" і т.д. отримали 10 розкладок по 100 номерів за лічені хвилини.
Але в будь-якому випадку, на 350 номерах питання автоматизації процесу можуть не мати виграшу за часом з ручною вбівкой даних.
Підхід грамотний. А що "особливо правильно" -
Але в будь-якому випадку, на 350 номерах питання автоматизації процесу можуть не мати виграшу за часом з ручною вбівкой даних.
350 номерків з цифр-картинок - це 939 об'єктів. Навіть щоб на шаблоні їх розподілити, потрібен час. Крім того, довжина у кожного номера різна. Коротше, я не зрозуміла переваги ручної роботи. Ось макрос, записаний з урахуванням домашніх отвлеканія за 15-20 хвилин (правда, алгоритм придуманий раніше, поки кашу дитині варила). Налагодження - ще хвилин 10. Я б вручну 350 номерів за цей час не розклала б. Та й тягомотная ця робота.
Вручну там задається 9 показників - ширина і висота заготовки, інтервали між стовпцями і рядами, кількість в ряду і в стовпці, поля праворуч і зверху і відступ між символами номера.
Для налагодження взяла 10 цифр від 0 до 9, перетворивши їх в криві і поставивши їх на аркуші по порядку (1 = 0, 2 = 1 і т.д.). Заготовки у мене не було, так що просто подивилася, як вони вишикувалися. Начебто все в порядку.
Option Base 0
Option Explicit
Dim arr ()
Dim i As Long, i1 As Long, iNumber As Long, iPages As Long, iC As Long, iR As Long
Dim iCmax As Long, iRmax As Long
Dim s As Shape, d As Shape
Dim x As Double, y As Double, he As Double, wi As Double, otstup As Double, xinterval As Double, yinterval As Double, Shi As Double
Dim x0 As Double, y0 As Double, xAb As Double, wi1 As Double, xpole As Double, ypole As Double
Dim Stri As String
ActiveDocument.ReferencePoint = cdrCenter
ActiveDocument.Unit = cdrMillimeter
he = 120
wi = 120
iCmax = 5
iRmax = 10
xinterval = 15
yinterval = 20
xpole = 14
ypole = 14
otstup = 5
Freeze
ReDim arr (9)
For i = 0 To 9
Set arr (i) = ActivePage.ActiveLayer.Shapes (i + 1)
Next i
iR = 1
iPages = 1
For iNumber = 1 To 350
Shi = 0
Stri = iNumber
For i = 1 To Len (Stri)
i1 = Mid (Stri, i, 1)
Shi = Shi + arr (i1) .SizeWidth + otstup
Next i
Shi = Shi - otstup
Set d = ActiveDocument.Pages (iPages) .Layers (1) .Paste
d.SetPosition x, y0
xAb = xAb + s.SizeWidth / 2 + otstup
Next i
Next iNumber
End Sub
Freeze - цей рядок треба прибрати, так як це мій виклик іншої процедури (прискорення обробки)
y0 = iR * (he + yinterval) + ypole
треба: y0 = (iR - 1) * (he + yinterval) + ypole + he / 2
x0 = iC * (wi + xinterval) + xpole
треба: x0 = (iC - 1) * (wi + xinterval) + xpole + wi / 2
xAb = x0 + Shi / 2
треба: xAb = x0 - Shi / 2
xAb = xAb + s.SizeWidth / 2 + otstup
треба: xAb = x + s.SizeWidth / 2 + otstup