1

Тема: Как пронумеровать и распечатать пустые листы

Прошу помочь, не нашел ответа на свой вопрос
Как распечатать пустые листы, которые в определенном порядке должны быть пронумерованы.

2

Re: Как пронумеровать и распечатать пустые листы

Я для этого пользовался слиянием.

  1. Создайте новую таблицу Excel, заполните первый столбец  цифрами, скажем от 1 до 100. Сохраните эту таблицу.

  2. Создайте новый документ Word

  3. На вкладке "Рассылки" выберите "Выбрать получателей"-"Использовать существующий список" и укажите сохраненную таблицу Excel.

  4. В появившемся окне "Выбор таблицы" снимите галочку "Первая строка данных содержит заголовки столбцов"

  5. В документе, в том месте, где должен быть номер страницы, вставьте поле { MERGESEQ  \* MERGEFORMAT }

  6. На вкладке "Рассылки" выберите "Найти и объединить"-"Изменить отдельные документы..."-все

В итоге вы получите документ с пустыми страницами и нумерацией. Этот документ можно распечатать или сохранить на будущее

Лучше день потерять — потом за пять минут долететь!

3

Re: Как пронумеровать и распечатать пустые листы

Спасибо за ответ
Но как то не получается, может неправильно выполняю инструкцию?
Вставляю { MERGESEQ  \* MERGEFORMAT }
И получается всместо нумерации, повторяется этот код { MERGESEQ  \* MERGEFORMAT }
пробовал нумеровать, но ничего не вышло
Помогите...

4

Re: Как пронумеровать и распечатать пустые листы

Фигурный скобки нужно вводить сочетанием Ctrl+F9

Лучше день потерять — потом за пять минут долететь!

5

Re: Как пронумеровать и распечатать пустые листы

Ура! получилось!  big_smile
Как теперь усложнив задачу, сделать
последовательность из четырех экземпляров, например 1111 2222 3333
Каждый первый из них выделять как нибудь, может быть в скобках делать
Чтобы обозначить оригинал
Пожалуйста, пните в нужном направлении  smile

6

Re: Как пронумеровать и распечатать пустые листы

Если такой порядок нужно получить при печати, то просто поставьте флажок "Разобрать по копиям" в окне печати

Лучше день потерять — потом за пять минут долететь!

7

Re: Как пронумеровать и распечатать пустые листы

Спасибо
После слияния, пытаюсь разместить цифры в другом месте, но Word как я понял не воспринимает получившийся результат за нумерацию. Повернуть на 90 градусов, чтобы отобразить альбомный вариант тоже не получается. Подскажите в каком направлении копать

8

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 Sub

9

Re: Как пронумеровать и распечатать пустые листы

Куда это вставить  hmm

10

Re: Как пронумеровать и распечатать пустые листы

в normal.dot и разрешить иакросы

какая у вас версия word

11

Re: Как пронумеровать и распечатать пустые листы

Word 2010
Где это normal.dot ?