Тема: Как пронумеровать и распечатать пустые листы
Прошу помочь, не нашел ответа на свой вопрос
Как распечатать пустые листы, которые в определенном порядке должны быть пронумерованы.
- viter.alex
- Модератор
- Неактивен
Re: Как пронумеровать и распечатать пустые листы
Я для этого пользовался слиянием.
Создайте новую таблицу Excel, заполните первый столбец цифрами, скажем от 1 до 100. Сохраните эту таблицу.
Создайте новый документ Word
На вкладке "Рассылки" выберите "Выбрать получателей"-"Использовать существующий список" и укажите сохраненную таблицу Excel.
В появившемся окне "Выбор таблицы" снимите галочку "Первая строка данных содержит заголовки столбцов"
В документе, в том месте, где должен быть номер страницы, вставьте поле { MERGESEQ \* MERGEFORMAT }
На вкладке "Рассылки" выберите "Найти и объединить"-"Изменить отдельные документы..."-все
В итоге вы получите документ с пустыми страницами и нумерацией. Этот документ можно распечатать или сохранить на будущее
Лучше день потерять — потом за пять минут долететь!
Re: Как пронумеровать и распечатать пустые листы
Спасибо за ответ
Но как то не получается, может неправильно выполняю инструкцию?
Вставляю { MERGESEQ \* MERGEFORMAT }
И получается всместо нумерации, повторяется этот код { MERGESEQ \* MERGEFORMAT }
пробовал нумеровать, но ничего не вышло
Помогите...
- viter.alex
- Модератор
- Неактивен
Re: Как пронумеровать и распечатать пустые листы
Фигурный скобки нужно вводить сочетанием Ctrl+F9
Лучше день потерять — потом за пять минут долететь!
Re: Как пронумеровать и распечатать пустые листы
Ура! получилось! 
Как теперь усложнив задачу, сделать
последовательность из четырех экземпляров, например 1111 2222 3333
Каждый первый из них выделять как нибудь, может быть в скобках делать
Чтобы обозначить оригинал
Пожалуйста, пните в нужном направлении 
- viter.alex
- Модератор
- Неактивен
Re: Как пронумеровать и распечатать пустые листы
Если такой порядок нужно получить при печати, то просто поставьте флажок "Разобрать по копиям" в окне печати
Лучше день потерять — потом за пять минут долететь!
Re: Как пронумеровать и распечатать пустые листы
Спасибо
После слияния, пытаюсь разместить цифры в другом месте, но Word как я понял не воспринимает получившийся результат за нумерацию. Повернуть на 90 градусов, чтобы отобразить альбомный вариант тоже не получается. Подскажите в каком направлении копать
Re: Как пронумеровать и распечатать пустые листы
обычно я пишу макросы
Sub pusto00()
'
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
'
With Selection.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientLandscape
.TopMargin = CentimetersToPoints(1.27)
.BottomMargin = CentimetersToPoints(1.27)
.LeftMargin = CentimetersToPoints(1.27)
.RightMargin = CentimetersToPoints(1.27)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.25)
.FooterDistance = CentimetersToPoints(1.25)
.PageWidth = CentimetersToPoints(29.7)
.PageHeight = CentimetersToPoints(21)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = True
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdPrintView
Else
ActiveWindow.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitFullPage
Dim n
n = InputBox("колич экз по 4 листа=", , "4")
'n = 4
Dim j1, j2, j2k, s2
j1 = 0
Do While j1 < Val(n)
Debug.Print j1;
j1 = j1 + 1
j2 = 0
j2k = 4
Do While j2 < j2k
j2 = j2 + 1
If j1 = 1 And j2 = 1 Then
Else
Selection.InsertBreak Type:=wdPageBreak
End If
If j1 = 1 Then
''Selection.Font.Bold = wdToggle
Selection.Font.Size = 12
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Else
Selection.Font.Bold = False
End If
Selection.TypeText Text:="экз." & j1 & "/" & j2 & Chr(13) & Chr(10) & Chr(13) & Chr(10)
Loop
Loop
End SubRe: Как пронумеровать и распечатать пустые листы
Куда это вставить 
Re: Как пронумеровать и распечатать пустые листы
в normal.dot и разрешить иакросы
какая у вас версия word
Re: Как пронумеровать и распечатать пустые листы
Word 2010
Где это normal.dot ?