Печать шаблона в word номера

dubatovka

1

Автоматическое изменение номеров при печати

12.01.2012, 20:31. Показов 40822. Ответов 31


Студворк — интернет-сервис помощи студентам

Здравствуйте.

Очень нуждаюсь в помощи. Необходимо напечатать 2000 договоров и постоянно изменять номера .. на 400-тых уже готов выкинуть компутер в окно (

Проблема в следующем:

1. Имеем договора.
2. Каждому договору должен быть присвоен 4-значный номер (пример: 0001, 1929 и т.п.)
3. «Полный» Договор состоит из 2 листов.
4. На первом листе 2 раза употребляется номер договора.
5. На втором листе 2 раза употребляется тот же номер договора.
Тоесть одна копия договора имеет 2 листа и в каждом по 2 раза употребляется один и тот же номер договора.
5. Задача — сделать так, чтобы автоматически при печати на лазерном принтере изменялись номера.
Тоесть есть вордовский документ единственный лист. Мы нажимаем печать 1000 листов. И компутер сам каждые 4 листа меняет номера: напечатал первый лист с номером 0001 + повтор 0001 на нем же, второй лист 0001 + повтор 0001 на немже, теперь компьютер изменил на единицу больше — далее 2 листа вылазят с номерами 0002 и т.д.

Добавлено через 7 минут
PS / И, если первый вопрос возможен , возможно ли, чтобы на последнем распечатанном номере сохранять документ .. и он продолжал уже с того, на котором остановился?

62 / 15 / 1

Регистрация: 14.12.2010

Сообщений: 15

13.01.2012, 05:28

2

dubatovka
Можно использовать механизм слияния для создания бланка писем при рассылке:
— создать источник данных (к примеру в Excel’е) с требующимися номерами договоров;
— в основном документе вставить поля слияния;
— завершить и распечатать (печать именно из рассылки).



0



KoGG

5590 / 1580 / 406

Регистрация: 23.12.2010

Сообщений: 2,366

Записей в блоге: 1

13.01.2012, 16:36

3

Нужно сделать закладку в первом месте с именем (в примере) DocumentNumber, в 3 -х других местах вставить перекрестную ссылку на эту закладку.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Печать_N_док()
 Dim Nachalo As Long, Konec As Long, i As Long, MemStart As Long, MemEnd As Long, myRange As Range
 Konec = InputBox("Введите номер последнего распечатываемого документа")
 Nachalo = ActiveDocument.Bookmarks("DocumentNumber").Range + 1
 For i = Nachalo To Konec
    MemStart = ActiveDocument.Bookmarks("DocumentNumber").Range.Start
    MemEnd = ActiveDocument.Bookmarks("DocumentNumber").Range.End
    ActiveDocument.Bookmarks("DocumentNumber").Range = Format(i, "0000")
    Set myRange = ActiveDocument.Range(Start:=MemStart, End:=MemEnd)
    With ActiveDocument.Bookmarks
        .Add Range:=myRange, Name:="DocumentNumber"
        .DefaultSorting = wdSortByLocation
        .ShowHidden = False
    End With
    ActiveDocument.Fields.Update
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
 Next i
End Sub

Вложения

Тип файла: doc Печать_смена_номера.doc (45.5 Кб, 1011 просмотров)



4



0 / 0 / 0

Регистрация: 18.04.2016

Сообщений: 3

18.04.2016, 21:47

4

KoGG
Спасибо Вам, очень помогли



0



0 / 0 / 0

Регистрация: 19.04.2017

Сообщений: 5

19.04.2017, 13:22

5

Добрый день!
использовала ваш макрос (за него большое спасибо, очень облегчил мою работу) для распечатки бланков с автоматической нумерацией (в частности, бланк доверенности).
в чем у меня возник вопрос. Делаю по 2 бланка на 1 листе. Для этого вручную переворачиваю бумагу. Распечатала 10 бланков, перевернула и еще 10 распечатала. Таким образом на 1 листе у меня по 2 бланка с различной нумерацией.
пробовала изменить макрос (range+2), создав 2 страничку, номер через закладку прописала DocumentNumber2. в 1случае нумерация происходила только 1стр., вторая не менялась. во 2случае поправила в макрос строки, стал нумеровать обе странички, со сдвигом.в итоге поняла, что проще попросить о помощи специалистов)
задача — печатать 1 бланк (документ состоит из 1 страницы в WORD) с автоматической нумерацией в кол-ве два бланка на 1 листе формата А4. То есть на 1 листе — № 0101 и № 0102, на 2 листе № 0103 и № 0104 и т.д.
Глубочайше буду благодарна за оказанную помощь в редактировании текущего макроса.



0



KoGG

5590 / 1580 / 406

Регистрация: 23.12.2010

Сообщений: 2,366

Записей в блоге: 1

19.04.2017, 19:48

6

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Печать_N_док2()
 Dim Nachalo As Long, Konec As Long, i As Long, MemStart As Long, MemEnd As Long, myRange As Range
 Konec = InputBox("Введите номер последнего распечатываемого документа")
 Nachalo = ActiveDocument.Bookmarks("DocumentNumber2").Range + 1
 For i = Nachalo To Konec Step 2
    MemStart = ActiveDocument.Bookmarks("DocumentNumber").Range.Start
    MemEnd = ActiveDocument.Bookmarks("DocumentNumber").Range.End
    ActiveDocument.Bookmarks("DocumentNumber").Range = Format(i, "0000")
    Set myRange = ActiveDocument.Range(Start:=MemStart, End:=MemEnd)
    With ActiveDocument.Bookmarks
        .Add Range:=myRange, Name:="DocumentNumber"
        .DefaultSorting = wdSortByLocation
        .ShowHidden = False
    End With
    MemStart = ActiveDocument.Bookmarks("DocumentNumber2").Range.Start
    MemEnd = ActiveDocument.Bookmarks("DocumentNumber2").Range.End
    ActiveDocument.Bookmarks("DocumentNumber").Range = Format(i+1, "0000")
    Set myRange = ActiveDocument.Range(Start:=MemStart, End:=MemEnd)
    With ActiveDocument.Bookmarks
        .Add Range:=myRange, Name:="DocumentNumber2"
        .DefaultSorting = wdSortByLocation
        .ShowHidden = False
    End With
    ActiveDocument.Fields.Update
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
 Next i
End Sub



0



0 / 0 / 0

Регистрация: 19.04.2017

Сообщений: 5

20.04.2017, 08:09

7

Доброе утро!
Увидела ответ с макросом и скорее пробовать… А не получается…
Выдает ошибку…
Итак, № доверенности проставляется дважды на листе. DocumentNumber -закладка и второй раз перекрестная ссылка на эту закладку. Это 1 лист. На втором листе — DocumentNumber2 — закладка и второй раз тоже перекрестная ссылка на эту закладку.
Так вот, на 1 листе номер меняется в закладке на число которое я ставлю последним в задании, в ссылке выдается «ошибка! источник ссылки не найден!», а на 2м листе номер не изменился, остался прежним…
Сначала решила, что закладка слетела. Сделала все заново.. Ничего подобного.. Слетает в момент распечатывания из макроса.. Делаю вложение к ответу «до» и «после».. Правда WORD документ почему-то тяжелый, прикрепляю скрины.

Миниатюры

Автоматическое изменение номеров при печати
 

Автоматическое изменение номеров при печати
 



0



1237 / 673 / 240

Регистрация: 22.12.2015

Сообщений: 2,094

20.04.2017, 09:12

8

mir chaya, почему не хотите использовать вполне рабочий вариант:

Цитата
Сообщение от AlexSyr
Посмотреть сообщение

Можно использовать механизм слияния для создания бланка писем при рассылке:

в общем-то инструмент изначально специально для вашей задачи и предназначен.



0



0 / 0 / 0

Регистрация: 19.04.2017

Сообщений: 5

20.04.2017, 09:31

9

Dinoxromniy, благодарю за участие, но вот этот вариант как раз мне и не подходит.. Почему, собственно, я и воспользовалась схемой с макросом .. Доработать надо просто.. Я, к сожалению, не программист, что-то знаю, конечно, но недостаточно..



0



Dinoxromniy

20.04.2017, 09:33

Не по теме:

Цитата
Сообщение от Dinoxromniy
Посмотреть сообщение

почему не хотите использовать вполне рабочий вариант

Цитата
Сообщение от mir chaya
Посмотреть сообщение

но вот этот вариант как раз мне и не подходит.. Почему, собственно, я и воспользовалась схемой с макросом ..

Спасибо за разъяснение, теперь уложилось в голове.



0



KoGG

5590 / 1580 / 406

Регистрация: 23.12.2010

Сообщений: 2,366

Записей в блоге: 1

20.04.2017, 20:04

11

Возможно перекрестная ссылка рушится, так как закладка при работе исчезает, а потом вставляется новая с таким же именем.
Вариант без перекрестных ссылок. 2 бланка на одну страницу.
Каждое поле для нумерации должно быть уникальным: DocumentNumber11 , DocumentNumber12 , DocumentNumber21, DocumentNumber22

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Печать_N_док2()
 Dim Nachalo&, Konec&, i&, j&, MemStart&, MemEnd&, myRange As Range , Ar
 Ar= Array("DocumentNumber11" , "DocumentNumber12" , "DocumentNumber21", "DocumentNumber22")
 Konec = InputBox("Введите номер последнего распечатываемого документа")
 Nachalo = ActiveDocument.Bookmarks("DocumentNumber22").Range + 1
 For i = Nachalo To Konec Step 2
    For j=0 to Ubound(Ar)
      MemStart = ActiveDocument.Bookmarks(Ar(j)).Range.Start
      MemEnd = ActiveDocument.Bookmarks(Ar(j)).Range.End
      ActiveDocument.Bookmarks(Ar(j)).Range = Format(i+j2, "0000")
      Set myRange = ActiveDocument.Range(Start:=MemStart, End:=MemEnd)
      With ActiveDocument.Bookmarks
          .Add Range:=myRange, Name:=Ar(j)
          .DefaultSorting = wdSortByLocation
          .ShowHidden = False
      End With
    ActiveDocument.Fields.Update
    Next j
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
 Next i
End Sub



0



0 / 0 / 0

Регистрация: 19.04.2017

Сообщений: 5

21.04.2017, 07:35

12

KoGG, спасибоооооооо!!!!!! все работает!!!!!!!!!!!
в итоге методом слияния я заполняю шаблон, а печатаю через макрос)) и это чудо сколько времени и нервов теперь сэкономлено!!!!! безграничная благодарность вам!!!!!



0



0 / 0 / 0

Регистрация: 14.06.2017

Сообщений: 2

14.06.2017, 20:54

13

Добрый вечер! Попытался использовать макрос, но не учел, что он именно 1000 шт пытается распечатать!) Мне гораздо меньше надо, подскажите, где править, каждый раз произвольное количество нужно будет. Еще мне теперь принтер не унять))) но с этим думаю сам разберусь.



0



0 / 0 / 0

Регистрация: 19.04.2017

Сообщений: 5

15.06.2017, 06:34

14

Доброе утро! Baden13, если вы зададите конечный результат 1000, то, естественно, он вам 1000 и напечатает. Лично я делаю по 10, 20,30 шт. Сохраняю документ после печати и на след раз порядковый номер не сбивается, а продолжается. На сегодняшнее утро у меня последний номер 2990, следовательно, если мне надо распечатать 20 документов, то в макросе задам число 3010. Все гениальное — просто! =)
Хорошего плодотворного дня!



0



0 / 0 / 0

Регистрация: 14.06.2017

Сообщений: 2

15.06.2017, 14:38

15

Спасибо за ответ!
Теперь новая проблема возникла, мне необходимо периодически печатать заданные интервалы номеров договоров, например с 17012 по 17022, если при помощи макроса нумерация меняется во время его работы, то потом как задать новый интервал(его начало)? Если задаю вручную в документе, все слетает, при запуске макроса число растет по неведомому алгоритму, на печать отправляется большое количество страниц и остановить это возможно только завершением процесса через диспетчер задач.

Добавлено через 51 минуту
Вроде разобрался, после ручного корректирования нужно закладку обновить.

А вот еще вопрос: если у меня документ двухсторонний, номер договора в шапке на одной и другой стороне листа, возможно как-то доработать макрос, чтобы использовать «двухстороннюю печать вручную»?



0



0 / 0 / 0

Регистрация: 12.07.2017

Сообщений: 104

12.07.2017, 13:25

16

Доброго времени суток!
Не подскажете, как пользоваться?
Нужно распечатать кучу бланков с нумерацией.
Я так понял надо в файле создать бланк, далее проставить в нужном месте где д.б. номер закладку.
Запустить макрос…
Но выскакивает ошибка:

Run-time error ’13’:
Type mismatch

В отладке ругается на:

Nachalo = ActiveDocument.Bookmarks(«DocumentNumber»).Range + 1

Что делать? Спасибо.



0



0 / 0 / 0

Регистрация: 11.08.2018

Сообщений: 1

11.08.2018, 09:57

17

Доброго времени суток! Нужна нумерация билетов, на А4 их расположено 10 шт, нумерация должна идти так 1 лист 1-10, второй 11-20 и т.д.
Может кто помочь в этом вопросе?
тираж 70000, вручную вбивать номера с ума можно сойти



0



0 / 0 / 0

Регистрация: 26.04.2019

Сообщений: 5

26.04.2019, 13:24

18

Подскажите как использовать Ваш макрос, если нужно при печати менялись 2 значения (номер паспорта и серийный номер).
Возможно задать количество листов печати и начало нумерации (номер паспорта и серийный номер) печати?



0



Модератор

Эксперт MS Access

11343 / 4661 / 749

Регистрация: 07.08.2010

Сообщений: 13,512

Записей в блоге: 4

26.04.2019, 14:13

19

Цитата
Сообщение от ibadrobot
Посмотреть сообщение

2 значения (номер паспорта и серийный номер).

номера и серии у вас видимо не подряд(это какая-то случайная выборка
и конечно, что представляет из себя шаблон печатаемого бланка
и сколько паспортов на странице(это типа наклейки или занимает целый лист)



1



0 / 0 / 0

Регистрация: 26.04.2019

Сообщений: 5

26.04.2019, 14:23

20

Мне хотя бы простой вариант сделать.
Что бы серийный номер оборудования печатался в 2-х местах. Но вводить первый номер (например: 9810) и количество листов для печати бланков паспортов.
Печать двухсторонняя, А4 и на одном листе две части паспорта. Так сказать книжная печать.



0



Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Сообщений [ 10 ]

1 23.03.2014 08:26:17

  • strvik
  • рядовой
  • Неактивен
  • Зарегистрирован: 22.03.2014
  • Сообщений: 6

Тема: В Word печать 6-значного номера страницы

Как в Word печатать 6-значный номер бланка организации (для учета)?
Формат номера бланка (страницы): xxxxxx .
Номер следующего листа должен быть на 1 больше предыдущего.
Командой страницы не выдерживаются 6 знаков, например, после 6-значной страницы 000009 выдается 7-значная 0000010
К тому же максимальное кол. страниц 32767 (для Word 2010×32)

2 Ответ от viter.alex 23.03.2014 14:31:59

  • В Word печать 6-значного номера страницы
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140
  • За сообщение: 2

Re: В Word печать 6-значного номера страницы

Очень просто. Для этого нужно воспользоваться ключом форматирования номера. Поле номера страницы следует записать так:
{ PAGE  # 000000 }

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

3 Ответ от strvik 29.03.2014 20:06:29

  • strvik
  • рядовой
  • Неактивен
  • Зарегистрирован: 22.03.2014
  • Сообщений: 6

Re: В Word печать 6-значного номера страницы

viter.alex пишет:

Очень просто. Для этого нужно воспользоваться ключом форматирования номера. Поле номера страницы следует записать так:
{ PAGE  # 000000 }

Максимальное значение поля PAGE — 32 767 (у меня Word 2013×64)
внешняя ссылка

4 Ответ от aap77 03.04.2014 09:35:08

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243

Re: В Word печать 6-значного номера страницы

strvik пишет:

Максимальное значение поля PAGE — 32 767 (у меня Word 2013×64)

А страниц в файле больше 32 767? Какого ж он у Вас размера?

5 Ответ от viter.alex 05.04.2014 04:23:15

  • В Word печать 6-значного номера страницы
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140

Re: В Word печать 6-значного номера страницы

Количество страниц и формат номера никак не связаны

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

6 Ответ от strvik 05.04.2014 17:08:45

  • strvik
  • рядовой
  • Неактивен
  • Зарегистрирован: 22.03.2014
  • Сообщений: 6

Re: В Word печать 6-значного номера страницы

aap77 пишет:

strvik пишет:

Максимальное значение поля PAGE — 32 767 (у меня Word 2013×64)

А страниц в файле больше 32 767? Какого ж он у Вас размера?

Размер файла docx с 32767 стр. 30Kb — в нем только номера страниц.
Раньше бланки с номерами 000000-999999 печатал нумератор, сейчас он сломался.
Хотелось бы автоматизировать в Worde

7 Ответ от strvik 05.04.2014 17:15:40

  • strvik
  • рядовой
  • Неактивен
  • Зарегистрирован: 22.03.2014
  • Сообщений: 6

Re: В Word печать 6-значного номера страницы

viter.alex пишет:

Количество страниц и формат номера никак не связаны

Если задать поле page # 000000 после достижения стр 032768 выдается — Превышено число стр максимально допустимое для Word.
Как продолжить счет с 032768?

8 Ответ от Boris_R 06.04.2014 21:15:20

  • Boris_R
  • полковник
  • Неактивен
  • Зарегистрирован: 07.08.2012
  • Сообщений: 234
  • Поблагодарили: 110
  • За сообщение: 1

Re: В Word печать 6-значного номера страницы

Распечатайте первые 32767 страниц документа, используя поле
{ PAGE  # 000000 }
Для печати следующих 32767 страниц в колонтитул вместо
{ PAGE  # 000000 } введите формулу:
{= (32767 + {PAGE}) # 000000}
и т.д., каждый раз изменяя число перед знаком + .

9 Ответ от viter.alex 07.04.2014 08:49:44

  • В Word печать 6-значного номера страницы
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140

Re: В Word печать 6-значного номера страницы

Боюсь спросить, а зачем столько страниц? Есть ощущение, что вы решаете этим какую-то стороннюю задачу

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

10 Ответ от strvik 11.04.2014 19:30:18

  • strvik
  • рядовой
  • Неактивен
  • Зарегистрирован: 22.03.2014
  • Сообщений: 6

Re: В Word печать 6-значного номера страницы

Я уже писал — в типографии для изготовления бланков строгой отчетности (письма, счета за гостиницу и т.д.) использовались Копир и механический нумератор 80г выпуска (сломался).
Копир печатал текст шаблона, затем нумератор — последовательные 6-зн числа (1 номер на 1 бланке).
Сейчас хочу совместить, чтобы множительный МФУ с компьютера вместе с шаблоном на каждом новом листе печатал увеличивающийся 6-зн номер.

Сообщений [ 10 ]

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Похожие темы

  • Как найти страницы без номера страницы?
  • О положении номера страницы в оглавлении
  • Удалить лишние точки и номера страницы
  • Вставка номера страницы из колонтитула в текст.
  • Поиск текста и определение номера страницы
  • Разные номера страниц снизу и вверху страницы
  • Поворот номера страницы в рамке на листе альбомной ориентации
  • Нумерация страниц через одну, с сохранением страницы вообще без номера

В Word печать 6-значного номера страницы

Большинство россиян работает с текстами в Ворде. Если у вас появилась необходимость в нестандартных шаблона или макросах для Microsoft Word, а также нужна консультация по настройкам текстового редактора, оптимальным решениям для различных функций, то все это вы можете найти на сайте Ворд Эксперт и форуме сайта. На портале о Microsoft Office Word вы узнаете про: ескд нумерация.

Форум имеет структуру, включающую главные и вспомогательные рубрики. В главных подфорумах выделен раздел, в котором собраны особенно часто встречающиеся вопросы и проблемы (например, устранение двойных пробелов). На портале о Microsoft Office Word вы узнаете про: нумерация страниц в ворде перпендикулярно тексту.
Там же вы найдете информацию по навигации самого форума и сайта и дополнительные источники, связанные с Вордом и программированием. На портале о Microsoft Office Word вы узнаете про: не удается открыть файл ворд из за проблем с его содержимым.

Большое внимание уделено настройками в различных версиях, форматированию и оформлению текстов в Ворде. Наш сайт о Microsoft Office Word даст ответ про: как преобразить текст с маленьких букв в большые в pages на mac.
Еще один подраздел полностью посвящен автоматизации (макросы, шаблоны, различные пути ускорения механических операций при работе с текстом и многое другое). На портале о Microsoft Office Word вы узнаете про: программа преобразования в pdf.
Также есть подфорум, в котором участники предлагают готовые варианты решений разных проблем. Существует возможность оставить заявку. На портале о Microsoft Office Word вы узнаете про: как удалить все 40 сносок сразу с текста в ворде.

Свои отзывы, предложения, замечания по форуму вы можете оставлять в соответствующем подразделе. Для общих вопросов предусмотрена «Курилка». На портале о Microsoft Office Word вы узнаете про: как в ворде сделать перенос слов.

Блог Мачула Владимира

  • Office
  • Редактор WORD
  • Редактор EXCEL
  • СУБД Access
  • LibreOffice
  • Софт
    • ОС Windows
    • Софт для ПК
    • Мобильный софт
    • Новости ПО
    • Полезное для блога
    • Деловые темы
    • Советы
    • Красиво размещаем реквизиты в договоре

      В этой статье рассмотрим такую полезную вещь, как красивое размещение реквизитов двух организаций в тексте договора. А все начиналось как в том произведении — ”Кроха сын к отцу пришел и спросила кроха…”, только это была не кроха, и не сын. 🙂 А вопрос звучал примерно так: “Я его туды пихаю, а оно не влазит, и не красиво совсем… Что делать?”

      Пришлось почесать темя, посмотреть правым глазом, потом левым и, чтобы решить эту проблему, предложить три варианта действия:

      Первый – поручить оформление договора кому-нибудь другому и забыть. Увы, не согласились, пришлось думать дальше. 🙂

      Второй – воспользоваться таблицей, как каркасом. Тут все просто, объясняю по шагам:

      1. Создаем таблицу, состоящую из одной строки и трех столбцов.

      2. Крайние столбцы делаем широкими, а центральный узким и расположенным по центру.

      3. Заносим реквизиты сторон, участвующих в договоре, в крайние широкие ячейки.

      Реквизиты в таблице

      Реквизиты в таблице

      4. Подгоняем ширину этих ячеек под текст, чтобы все красиво разместилось.

      5. Убираем границы ячеек (делаем их прозрачными), чтобы они не выводились на печать.

      6. Радуемся результату трудов праведных.

      Третий способ более трудоемок, как на мой взгляд, но тоже имеет право на жизнь. Разнести текст с левую и правую части листа можно путем разделения фрагмента листа на две колонки. Делается это следующим образом:

      1. Наиболее удобно предварительно набрать текст с реквизитами, разместив их один под другим, разделив пустой строкой. При этом будет оптимально, если данные о каждой из сторон займут одинаковое количество строк и только до середины листа (чтобы в перспективе осталось место для соседа).

      Начальный набор текста

      Начальный набор текста

      2. Отделяем введенные данные сверху и снизу от остального текста пустыми строками.

      3. Выделяем текст реквизитов в блок, не захватывая примыкающие пустые строки сверху и снизу.

      Выделяем набранный текст

      Выделяем набранный текст

      4. На вкладке Разметка страницы линейки меню, в области Параметры страницы, выбираем кнопку Колонки – Две.

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

      Текст в две колонки

      Текст в две колонки

      6. Если произошло смещение данных, выравниваем их введением в столбцах дополнительных строк. При этом необходимо учитывать то, что строки ведут себя между двумя колонками, как вода в сообщающихся сосудах (школьный курс физики). Они перетекают из левого в правый, стремясь к равному количеству с обоих сторон.

      Вот таким нехитрым и хитрым способами можно помочь себе создать договор с красиво расположенными реквизитами сторон. Удачи Вам!

      Для получения анонсов статей удобно воспользоваться рассылкой, подписаться на которую можно ЗДЕСЬ .

      Создание фирменного бланка в Microsoft Word

      Как сделать фирменный бланк в Word

      Многие компании и организации тратят немалые деньги на то, чтобы создать фирменную бумагу с уникальным дизайном, даже не догадываясь о том, что сделать фирменный бланк можно самостоятельно. Это не займет много времени, а для создания понадобится всего одна программа, которая и так используется в каждом офисе. Конечно же, речь идет о Microsoft Office Word.

      Используя обширный набор инструментов текстового редактора от Майкрософт, можно оперативно создать уникальный образец, а затем использовать его в качестве основы для любой канцелярской продукции. Ниже мы расскажем о двух способах, с помощью которых можно сделать фирменный бланк в Ворде.

      Создание наброска

      Ничто не мешает вам сразу приступить к работе в программе, но куда лучше будет, если вы набросаете приблизительный вид шапки бланка на листе бумаги, вооружившись ручкой или карандашом. Это позволит увидеть то, как элементы, входящие в бланк, будут сочетаться между собой. При создании наброска необходимо учесть следующие нюансы:

      • Оставьте достаточно места для логотипа, названия компании, адреса и другой контактной информации;
      • Подумайте над тем, чтобы добавить на фирменный бланк и слоган компании. Эта идея особенно хороша в случае, когда основная деятельность или услуга, предоставляемая компанией, не указаны на самом бланке.

      Создание бланка вручную

      В арсенале MS Word есть все необходимое для того, чтобы создать фирменный бланк в целом и воссоздать набросок, созданный вами на бумаге, в частности.

      1. Запустите Ворд и выберите в разделе «Создать» стандартный «Новый документ».

      открыть документ в Word

      Примечание: Уже на данном этапе вы можете сохранить пока еще пустой документ в удобное место на жестком диске. Для этого выберите «Сохранить как» и задайте название файла, например, «Бланк сайта Lumpics». Даже если вы не всегда успеете своевременно сохранять документ по ходу работы, благодаря функции «Автосохранение» это будет происходить автоматически через заданный промежуток времени.

      2. Вставьте в документ колонтитул. Для этого во вкладке «Вставка» нажмите кнопку «Колонтитул», выберите пункт «Верхний колонтитул», а затем выберите шаблонный колонтитул, который устроит вас.

      выбор колонтитула в word

      колонтитул добавлен в Word

      3. Теперь нужно перенести в тело колонтитула все то, что вы набросали на бумаге. Для начала укажите там следующие параметры:

      • Название вашей компании или организации;
      • Адрес сайта (если таковой имеется и он не указан в названии/логотипе компании);
      • Контактный телефон и номер факса;
      • Адрес электронной почты.

      шапка бланка в Word

      Важно, чтобы каждый параметр (пункт) данных начинался с новой строки. Так, указав название компании, нажмите «ENTER», то же проделайте и после номера телефона, факса и т.д. Это позволит разместить все элементы в красивом и ровном столбике, форматирование которого все же тоже придется настроить.

      Для каждого пункта этого блока выберите подходящий шрифт, размер и цвет.

      стиль шапки в Word

      Примечание: Цвета должны гармонировать и хорошо сочетаться между собой. Размер шрифта названия компании должен быть хотя бы на две единицы больше шрифта для контактных данных. Последние, к слову, можно выделить другим цветом. Не менее важно, чтобы все эти элементы по цвету гармонировали с логотипом, который нам только предстоит добавить.

      4. Добавьте в область колонтитула изображение с логотипом компании. Для этого, не покидая области колонтитула, во вкладке «Вставка» нажмите кнопку «Рисунок» и откройте подходящий файл.

      Вставка рисунка в word

      5. Задайте подходящие размеры и положение для логотипа. Он должен быть «заметным», но не большим, и, что не менее важно, хорошо сочетаться с текстом, указанным в шапке бланка.

        Совет: Чтобы удобнее было перемещать логотип и изменять его размеры около границы колонтитула, задайте ему положение «Перед текстом», кликнув по кнопке «Параметры разметки», расположенной справа от области, в которой находится объект.

      перед текстом в word

      Для перемещения логотипа кликните по нему, чтобы выделить, а затем потяните в нужное место колонтитула.

      Примечание: В нашем примере блок с текстом находится слева, логотип — в правой части колонтитула. Вы же, по желанию, можете разместить эти элементы иначе. И все же, разбрасывать их по сторонам не следует.

      Для изменения размера логотипа, наведите указатель курсора на один из углов его рамки. После того, как он трансформируется в маркер, потяните в нужном направлении для изменения размера.

      Примечание: Изменяя размер логотипа, старайтесь не сдвигать его вертикальные и горизонтальные грани — вместо необходимого вам уменьшения или увеличения, это сделает его ассиметричным.

      Старайтесь подобрать такой размер логотипа, чтобы он соответствовал общему объему всех текстовых элементов, которые тоже расположены в шапке.

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

      добавить линию в Word

      Примечание: Помните о том, что линия как по цвету, так и по своим размерам (ширине) и виду, должна сочетаться с текстом в шапке и логотипом компании.

      верхняя шапка бланка в Word

      7. В нижнем колонтитуле можно (или даже нужно) разместить какую-нибудь полезную информацию о фирме или организации, которой принадлежит этот бланк. Мало того, что это позволит визуально уравновесить верхний и нижний колонтитул бланка, так еще и предоставит дополнительные данные о вас тому, кто знакомится с компанией впервые.

        Совет: В нижнем колонтитуле можно указать девиз компании, если такой, конечно, есть, номер телефона, сферу деятельности и т.д.

      Для добавления и изменения нижнего колонтитула выполните следующее:

        Во вкладке «Вставка» в меню кнопки «Колонтитул» выберите нижний колонтитул. Выбирайте из выпадающего окна тот, который по своему внешнему виду полностью соответствует выбранному вами ранее верхнему колонтитулу;

      Добавить нижний колонтитул в word

    • Во вкладке «Главная» в группе «Абзац» нажмите кнопку «Текст по центру», выберите подходящий шрифт и размеры для надписи.
    • изменить шрифт надписи Word

      Примечание: Девиз компании лучше всего написать курсивом. В некоторых случаях лучше писать эту часть заглавными буквами или же просто выделить Первые буквы важных слов.

      девиз добавлен в Word

      8. Если это необходимо, вы можете добавить на бланк строку для подписи, а то и саму подпись. Если нижний колонтитул вашего бланка содержит текст, строка для подписи должна находиться выше него.

        Совет: Для выхода из режима работы с колонтитулами нажмите клавишу «ESC» или дважды кликните по пустой области страницы.

      девиз в колонтитуле в Word

      9. Сохраните созданный вами фирменный бланк, предварительно его просмотрев.

      10. Распечатайте бланк на принтере, чтобы увидеть, как он будет выглядеть вживую. Возможно, вам уже сейчас есть, где его применить.

      печать бланка в Word

      Создание бланка на основе шаблона

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

      1. Откройте MS Word и в разделе «Создать» в строке поиска введите «Бланки».

      поиск бланков в Word

      2. В списке слева выберите подходящую категорию, например, «Бизнес».

      выбор бланка в Word

      3. Выберите подходящий бланк, кликните по нему и нажмите «Создать».

      создать бланк в Word

      Примечание: Часть представленных в Ворде шаблонов интегрирована непосредственно в программу, но часть из них, хоть и отображается, подгружается с официального сайта. Кроме того, непосредственно на сайте Office.com вы сможете найти огромный выбор шаблонов, которые не представлены в окне редактора MS Word.

      4. Выбранный вами бланк будет открыт в новом окне. Теперь вы можете изменить его и подстроить все элементы под себя, аналогично тому, как это написано в предыдущем разделе статьи.

      шаблон бланка добавлен в Word

      Введите название компании, укажите адрес сайта, контактные данные, не забудьте разместить на бланке логотип. Также, не лишним будет указать девиз фирмы.

      измененный шаблон бланка в Word

      Сохраните фирменный бланк на жестком диске. Если это необходимо, распечатайте его. Кроме того, вы всегда можете обращаться и к электронной версии бланка, заполняя его согласно выдвигаемым требованиям.

      Теперь вы знаете, что для создания фирменного бланка отнюдь не обязательно идти в полиграфию и тратить кучу денег. Красивый и узнаваемый фирменный бланк вполне можно сделать самостоятельно, особенно, если в полной мере использовать возможности Microsoft Word.

      Мы рады, что смогли помочь Вам в решении проблемы.

      Помимо этой статьи, на сайте еще 11902 инструкций.
      Добавьте сайт Lumpics.ru в закладки (CTRL+D) и мы точно еще пригодимся вам.

      Отблагодарите автора, поделитесь статьей в социальных сетях.

      Опишите, что у вас не получилось. Наши специалисты постараются ответить максимально быстро.

      Статьи из блога

      Долгое время на своей прежней работе я занимался договорной практикой — редактировал поступающие в организацию договора, составлял акты и т.п. Особых проблем с технической точки зрения эта работа не представляла. Однако, когда я начинал редактировать реквизиты сторон на последних страницах документов, мое терпение быстро испарялось и мне приходилось кардинально переделывать эти разделы.

      Что же в них было не так?

      Как правило, пользователями Word эта часть документа набиралась таким образом: сначала в левой части документа печаталось название одной фирмы, потом вводилось множество символов пробела или табуляторов, и в правой части печаталось название второй фирмы, после чего нажатием клавиши ENTER происходил переход на новую строку и ввод реквизитов фирм повторялся в той же последовательности.

      В результате, файл документа, попадая ко мне на компьютер, во-первых терял свое первоначальное форматирование (разные настройки Word), а во-вторых, при попытке ввести или изменить какие-то данные в реквизитах, строки и символы меняли свое местоположение и их подгонка отнимала у меня много времени и сил.

      Если вы сталкивались с такой ситуацией, то вы меня понимаете.

      Чтобы мне было удобнее редактировать впоследствии реквизиты в таких документах, я использовал таблицу с двумя ячейками (столбцами). И потом легко и просто я заносил в ячейки реквизиты организаций — данные друг другу не мешали и редактирование происходило гораздо быстрее.

      Чтобы избавиться от границ таблицы, я делал их невидимыми. И при печати документа границы не выводились. Сделать границы невидимыми очень просто: выделите всю таблицу и нажмите правую кнопку мыши. В появившемся контекстном меню выберите команду Границы и Заливка и в диалоговом окне вкладки Границы нажмите на типе границ нет . Теперь границы станут невидимыми.

      Поэтому, если вы готовите какие-то документы с последующей передачей их другой стороне для редактирования, используйте таблицы для ввода реквизитов. Поверьте, вам будут благодарны, даже если вы об этом никогда не узнаете.

      Кстати, использовать таблицы можно и в начале документов там, где вводят дату и город (место заключения договора, например).

      Вы можете помочь в развитии сайта, сделав пожертвование:

      —> Или помочь сайту популярной криптовалютой:

      BTC Адрес: 1Pi3a4c6sJPbfF2sSYR2noy61DMBkncSTQ

      ETH Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

      LTC Адрес: LUyT9HtGjtDyLDyEbLJZ8WZWGYUr537qbZ

      USDT (ERC-20) Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

      Яндекс Деньги: 410013576807538

      А тут весь список наших разных крипто адресов, может какой добрый человек пожертвует немного монет или токенов — получит плюсик в карму от нас 🙂 Благо Дарим, за любую помощь! —>

      June 24 2010, 17:46

      Category:

      • IT
      • Cancel

      Способ 1
      Будем использовать лишь Word и Excel. Покажу на примере 2007-ой версии, хотя всё тоже самое можно сделать и в 2003-ей.

      1. Открываем Excel и создаём документ с номерами нужных нам документов, вот так:

      Выделяем мышкой два номера и растягиваем на сколько нам нужно номеров:

      C Excel’ем всё, сохраняем готовый файл под именем Нумерация_документов.xlsx

      2. Переходим в Word и открываем документ, на котором нам нужно проставить номера и распечатать.

      Переходим на вкладку Рассылки (Alt-Ы) — Начать слияниеПошаговый мастер слияния…

      Выбор типа документа: я оставляю выбранным письма (письмо в данном случае можно сделать любого формата, в том числе A4).

      Шаблоном является текущий документ (можно было шаблон открыть на этом этапе).


      Нажимаем обзор и выбираем источник данных (наших заранее сделанных номеров документов) Нумерация_документов.xlsx
      Появляется окно для выбора листа, выбираем Лист1.

      Появляется окошко с нашими номерами.

      Слава богу :) Нажимаем OK.

      И видим, что теперь источник данных выбран, можно создавать письмо. Нажимаем Создать письмо.

      Так, теперь нужно подставить номер в бланк ровно в те места куда нужно.
      Ставим курсов в документе в то место куда нужно подставить номер и нажимаем Другие элементы… справа.

      Выбираем наше поле, нажимаем кнопки Вставить и Закрыть.
      В документе появляется вот такого вида поле:

      Всё подставилось, теперь можно печатать, отправлять и т.д., для просмотра нажимаем Далее. Просмотр писем.

      При этом у нас подставляются конкретные значения и мы можем щёлкать их:

      Нажимаем Далее. Завершение слияния, всё готово :)

      Можно нажать на Печать… — и тогда всё отпечатается, или на Изменить часть писем… тогда выбранную часть Word преобразует в единый длинный документ и отдельные документы можно будет отредактировать.

      Способ 2 — программирование на Visual Basic
      1. Включаем в Word панель «Разработчик» (она по-умолчанию выключена в Word’е).


      2. Переходим на панель «Разработчик» и нажимаем на Visual Basic (или вместо всего этого нажимаем Alt-F11) — оказываемся в редакторе кода.
      3. Вводим макрос:

      Sub Печать_кучи_документов_с_номерами()' В документе там где должен быть номер должна стоять 239366 '        
         
      For Номер_документа = 239366+1 To 239366+100        
             
      With Selection.Find
                 
      .Text = Trim(Str(Номер_документа - 1))
                 
      .Replacement.Text = Trim(Str(Номер_документа))
                 
      .Forward = True
                 
      .Wrap = wdFindContinue
             
      End WithSelection.Find.Execute Replace:=wdReplaceAllApplication.PrintOut Range:=wdPrintAllDocument, Item:= _
                  wdPrintDocumentContent
      , Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
                 
      ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
                 
      False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
                 
      PrintZoomPaperHeight:=0
         
      Next                    
      End Sub


      4. В документ везде где требуется номер вставляем цифры 239366. И запускаем макрос на выполнение :)))

      P.S. Специально для aellinЭлечки чтобы облегчить её работу

      Главная


      Шаблон MS Word для ПО Avery Zweckform код L7563


      Адресные этикетки, 99,1 x 38,1 мм, 14 шт. на листе

      Похожая продукция

      • Прозрачные этикетки для лазерных принтеров – L7563-25

      Design & Print — онлайн шаблоны от Avery — легко и просто!

      • Пустые и прорисованные шаблоны
      • Слияние базы данных и печать штрих-кодов
      • Простое редактирование и дизайн изображений
      • Более 60 шрифтов для дизайна
      • Добавление логотипов, графики, изображений
      • Сохранение проектов в облаке онлайн для доступа в любое время.

      Word Template

      • Пустые шаблоны с заданными границами
      • Простое редактирование текста и печать

      Like this post? Please share to your friends:
    • Печать через vba excel
    • Печать только четных страниц excel
    • Печать ценников в excel шаблон
    • Печать только области ячеек excel
    • Печать ценников в excel нет