Samara24.Форум /Компьютеры Интернет Связь / Программное обеспечение /

Как сделать в Wordе?

Печать RSS Деревом

александр99
guru
Сообщений: 9148
18.03.05 20:39
Суть такова.
В ворде набран гарантийный талон, печатется в месяц штук 50-80. Все номерные (1,2,3,4, и т.д.). Печатаются залпом вся партия.
Так приходится перед печатью ручками номер менять, так как неумею Ворд так настроить, чтоб автоматом он сам эту цифру обновлял на следующюю по возрастанию. Слышал, что возможно такое.
Кто знает как, подскажите пожалуйста, замучился.
Скажи, если не починю мост- я смогу до дачи съездить?
А я что Ванга, что бы знать сможешь или нет?
КопироватьСсылка
Рассказать друзьям
=SmasH=
veteran
Сообщений: 1507
19.03.05 23:33Ответ на сообщение Как сделать в Wordе? пользователя александр99
меню "Сервис" -> "Слияние..."
КопироватьСсылка
Рассказать друзьям
Alx
guru
Сообщений: 4163
20.03.05 08:27Ответ на сообщение Re: Как сделать в Wordе? пользователя =SmasH=
Причем тут слияние?
Ему макрос надо написать или типа того.
Я к сожалению тоже с макросами не очень.
КопироватьСсылка
Рассказать друзьям
Alx
guru
Сообщений: 4163
20.03.05 08:29Ответ на сообщение Как сделать в Wordе? пользователя александр99
Можно копать в сторону Автотекста, Полей т.п.
Могу предложить создать документ из 80 страниц, где номер талона создается "вставка"-автотекст-страница. Ну типа того, на основе номера страницы. Копируешь 80 раз Потом ctrl-A и F9 обновляешь поля.

Есть еще Коды полей: PRINT -

В ответ на: Отправка управляющих команд на выбранный принтер. Значение отображается только при печати документа. Команды принтера можно найти в прилагаемой к нему документации.
Но тут PostScript надо изучать.
КопироватьСсылка
Рассказать друзьям
александр99
guru
Сообщений: 9148
20.03.05 09:14Ответ на сообщение Re: Как сделать в Wordе? пользователя Alx
В ответ на: Могу предложить создать документ из 80 страниц, где номер талона создается "вставка"-автотекст-страница. Ну типа того, на основе номера страницы. Копируешь 80 раз Потом ctrl-A и F9 обновляешь поля.
Не это не выход, потому как придётся создавать документ из 750 страниц (за год столько номерных талонов набегает, с 1 января заново 1,2,3,......)

Я слышал именно про макрос, что мол создаёшь его, прописываешь в нём нужные цифры, и он поочереди их вставляет в печатаемый лист, но как это сделать пошагово ни пойму, переворошил Ворд, не нашёл.
Скажи, если не починю мост- я смогу до дачи съездить?
А я что Ванга, что бы знать сможешь или нет?
КопироватьСсылка
Рассказать друзьям
=SmasH=
veteran
Сообщений: 1507
20.03.05 14:26Ответ на сообщение Re: Как сделать в Wordе? пользователя Alx
В ответ на: Причем тут слияние?
Ему макрос надо написать или типа того.
Я к сожалению тоже с макросами не очень.
боже мой, кто о чем...
Саздаем документ, создаем источник данных (1,2,3,4...), создаем поле для слияния, всуёвываем в нужное место, выполняем печать... Может конечно есть способы и проще... а может я неправильно понял постановку задачи
КопироватьСсылка
Рассказать друзьям
александр99
guru
Сообщений: 9148
20.03.05 16:24Ответ на сообщение Re: Как сделать в Wordе? пользователя =SmasH=
Документ создан, в нём прописанно
Гарантийный талон № 130
Вот дальше объясните пошагово мне тупому,

1. Создаём источник данных. Где создаём. и как?

2.Создаём поле для слияния. Я захожу в мастер слияния, он письма предлагает разослатью

3. Всовываем в нужное место.
Ну и про это поподробнее, а то боюсь место перепутать
Скажи, если не починю мост- я смогу до дачи съездить?
А я что Ванга, что бы знать сможешь или нет?
КопироватьСсылка
Рассказать друзьям
onanymous
guru
Сообщений: 3019
29.03.05 19:16Ответ на сообщение Re: Как сделать в Wordе? пользователя александр99
Печатать посредством макроса, например (код ниже). Для простоты использования можно повесить его на отдельную кнопку на тулбаре. В тексте документа там, где нужно впечатать динамически изменяемый номер, вставляется переменная документа:
Главное меню -> Insert ->Field
Выбрать в левой колонке тип поля "DocVariable" и в строке ввода (правее) ввести название переменной "warranty"
```
Sub Macro1()

   Dim warranty As Variable

   On Error GoTo varcreate

   

   Set warranty = ActiveDocument.Variables("warranty")

   GoTo increment

    

varcreate:

   Set warranty = ActiveDocument.Variables.Add("warranty", 0)

    

increment:

   warranty.Value = warranty.Value + 1

   ActiveDocument.Fields.Update

   ActiveDocument.Save

   ActiveDocument.PrintOut

End Sub
```
КопироватьСсылка
Рассказать друзьям
александр99
guru
Сообщений: 9148
31.03.05 07:24Ответ на сообщение Re: Как сделать в Wordе? пользователя onanymous
Чувствую про то пишите, но понимаю, что мне в этом не разобраться, увы.
Скажи, если не починю мост- я смогу до дачи съездить?
А я что Ванга, что бы знать сможешь или нет?
КопироватьСсылка
Рассказать друзьям
onanymous
guru
Сообщений: 3019
31.03.05 13:15Ответ на сообщение Re: Как сделать в Wordе? пользователя александр99
А что непонятно? Как в документ поле вставить - я вроде рассказал. Макрос создать - тоже не сложно.
Главное меню -> Tools -> Macro -> Macros -> Create. Называешь его как хочешь, Macro1 например. Открывается редактор бейсика, в который нужно просто скопировать код, который я привел в предыдущем посте.
Повесить готовый макрос на кнопку на тулбаре можно через меню Tools->Customize, там же - присвоить макросу горячую клавишу.
КопироватьСсылка
Рассказать друзьям
александр99
guru
Сообщений: 9148
01.04.05 15:09Ответ на сообщение Re: Как сделать в Wordе? пользователя onanymous
В ответ на: 1.Выбрать в левой колонке тип поля "DocVariable" и в строке ввода (правее) ввести название переменной "warranty"

2. Повесить готовый макрос на кнопку на тулбаре можно через меню Tools->Customize, там же - присвоить макросу горячую клавишу.
Всё остальное сделал, создал макрос, скопировал.
1. Где эта колонка находится?
2. Каким образом?
PS У Вас что винд. не русский? Ну в макросе и уменя на английском всё, но в главном то меню?
Извиняюсь за тупизм.
Скажи, если не починю мост- я смогу до дачи съездить?
А я что Ванга, что бы знать сможешь или нет?
КопироватьСсылка
Рассказать друзьям
onanymous
guru
Сообщений: 3019
01.04.05 16:05Ответ на сообщение Re: Как сделать в Wordе? пользователя александр99
> 1. Где эта колонка находится?

Хм... мне казалось, что я достаточно подробно описал. Винда и Word у меня английские, как это называется в русских - никогда не интересовался, так что аналогии ищи сам.
Колонка находится в окне диалога, возникающего после выполнения команды главного меню Insert -> Field.
Что нужно делать - смотри на картинке.
Имей в виду, кстати, что до первого выполнения макроса в документе не существует переменной warranty. Поэтому скорее всего вставка поля не даст никакого визуального эффекта. Тем не менее оно будет вставлено - это можно проверить, выделив текст документа и выбрав команду контекстного меню "Toggle Field Codes". В любом случае, после первого же исполнения макроса, на месте поля появится цифра, которая будет инкрементироваться с каждой печатью.
КопироватьСсылка
Рассказать друзьям
onanymous
guru
Сообщений: 3019
01.04.05 16:17Ответ на сообщение Re: Как сделать в Wordе? пользователя александр99
> 2. Каким образом?

Смотри на картинке. Этот диалог возникает по команде главного меню Tools -> Customize. В нем же можно назначить макросу горячую клавишу, если хочется (кнопка Keyboard).

Все картинки относятся к случаю, когда макрос был определен в шаблоне Normal.dot (по умолчанию). Подозреваю однако, что имеет смысл определять его в данном конкретном документе (в момент создания макроса). Но это все тонкости, будет надо - разберешься.
КопироватьСсылка
Рассказать друзьям
александр99
guru
Сообщений: 9148
01.04.05 18:52Ответ на сообщение Re: Как сделать в Wordе? пользователя onanymous
$:а\?:$ $:а\?:$ $:а\?:$

А ну её НАХ.......

Буду в ручную набирать!
Скажи, если не починю мост- я смогу до дачи съездить?
А я что Ванга, что бы знать сможешь или нет?
КопироватьСсылка
Рассказать друзьям
onanymous
guru
Сообщений: 3019
04.04.05 02:24Ответ на сообщение Re: Как сделать в Wordе? пользователя александр99
Дык с этого и начинать надо было. А то я тут как последнее кю рабочее и личное время у тебя отнимаю :-)))
Кароче, Склихософский! (с) Твоя последняя надежда - в аттаче, там тупо все уже сделано :-) Все, что осталось - это макросы в ворде разрешить, если вдруг они у тебя запрещены (что вряд ли). Ну и текст вставить свой, естессно. Только цифирьку не удаляй, а то потом опять же проблемы возникнут с тем, чтобы вернуть ее на место. А копировать, форматировать - это всегда пожалуйста.
На тулбаре появится кнопка "Печать++". Насколько я понимаю, наиболее интересный для тебя вариант ее использования - когда нажимаешь на нее с шифтом. Удачи
КопироватьСсылка
Рассказать друзьям
Сибиряк
old hamster
Сообщений: 13510
04.04.05 09:20Ответ на сообщение Re: Как сделать в Wordе? пользователя александр99
Я тебя не понимаю. Тебе всё разжевали, а ты ну её нах... $:а\?:$
КопироватьСсылка
Рассказать друзьям
александр99
guru
Сообщений: 9148
04.04.05 16:32Ответ на сообщение Re: Как сделать в Wordе? пользователя Сибиряк
Да я сам иногда себя не понимаю......
Вроде в более сложных вещах разбираюсь, а с этим макросом..
Скажи, если не починю мост- я смогу до дачи съездить?
А я что Ванга, что бы знать сможешь или нет?
КопироватьСсылка
Рассказать друзьям
александр99
guru
Сообщений: 9148
04.04.05 16:38Ответ на сообщение Re: Как сделать в Wordе? пользователя onanymous
Так, заработало кажись. Спасибо, за помощь, и за то, что не послали , домучали таки вопрос.
Только одна проблемма осталась, через Печать ++ не работает, пишет "Макрос не найден, возможно он отключён по соображениям безопасности"
Получается только через "меню-макрос-выполнить", печатает лист с динамическиизменённым номером.
Скажи, если не починю мост- я смогу до дачи съездить?
А я что Ванга, что бы знать сможешь или нет?
КопироватьСсылка
Рассказать друзьям
александр99
guru
Сообщений: 9148
04.04.05 16:56Ответ на сообщение Re: Как сделать в Wordе? пользователя александр99
О, со второй попытки всё заработало, печатает с Печать++ как надо.

Последний вопрос. А как теперь задать печать на 70 листов, одной командой, чтоб не тыкать в Печать ++ каждый раз?
Такое возможно?
Скажи, если не починю мост- я смогу до дачи съездить?
А я что Ванга, что бы знать сможешь или нет?
КопироватьСсылка
Рассказать друзьям
onanymous
guru
Сообщений: 3019
04.04.05 17:04Ответ на сообщение Re: Как сделать в Wordе? пользователя александр99
Я ж в прошлый раз писал - нажимать на кнопку с шифтом не пробовал? :-)
Это, кстати, относится и к случаю, когда печатаешь через меню "Макрос" - кнопку "Выполнить" нужно нажимать, удерживая шифт.
КопироватьСсылка
Рассказать друзьям
александр99
guru
Сообщений: 9148
05.04.05 18:00Ответ на сообщение Re: Как сделать в Wordе? пользователя onanymous
Ессно нажимал, что ж я не понимаю что ли?
Так всё же как печатать на автомате 70 листов?
Скажи, если не починю мост- я смогу до дачи съездить?
А я что Ванга, что бы знать сможешь или нет?
КопироватьСсылка
Рассказать друзьям
onanymous
guru
Сообщений: 3019
05.04.05 18:15Ответ на сообщение Re: Как сделать в Wordе? пользователя александр99
> Ессно нажимал, что ж я не понимаю что ли?

Ну, и...? Не нашел, куда нужно вставить число 70, да?
КопироватьСсылка
Рассказать друзьям
александр99
guru
Сообщений: 9148
05.04.05 19:27Ответ на сообщение Re: Как сделать в Wordе? пользователя onanymous
Сглазил меня кто то , что ли?
Вот до этого листов 15 печатал, не выскакивало это окошко, сейчас поробовал, появилось!

Ну всё, отстал, если ещё раз спрошу, хоть побейте меня. Надоел наверное уже?

Спасибо!
Скажи, если не починю мост- я смогу до дачи съездить?
А я что Ванга, что бы знать сможешь или нет?
КопироватьСсылка
Рассказать друзьям