Вопросик по MS WORD 2000... может и с программированием связан...

← →
otido © (2003-08-24 14:45) [0]

Вот такая вот штучка получается... надо распечатывать много много копий документа.. где-то посередине листа должен стоять номер.. типа лотерейные билеты штамповать...
А как реализовать - не знаю(

мои варианты:
1)попытаться засунуть номер страницы куда-то в это самое место к номеру... и сделать весь документ этими листами..... но начинать надо минимум с 4-значного числа.... это из бредового...

2)я не очень разбираюсь в VBA, но если считывать счетчик из файла (попутно его увеличивая), то возникает вопросик, а как поместить в то самое место....?

Эни айдиас по реализации?

Заранее благодарю,
otido

← →
Феликс © (2003-08-24 15:05) [1]

http://www.xatka.vov.ru/cgi-bin/ewhere.pl?query=WORD&B1=%C3%EE%F2%EE%E 2%EE

← →
otido © (2003-08-24 15:57) [2]

Один документик в приниципе почти подходит, но если без Дельфи?
... знали бы вы, сколько она у меня грузится.........
ЗЫ
Возьму везвоздмездно HDD хоть на 6 Гб, не могу уже, 120 Мб места после старта.....

← →
ИМХО © (2003-08-24 16:19) [3]

И можно без хлеба!

← →
otido © (2003-08-24 16:29) [4]

not funny unfortunately(

← →
ИМХО © (2003-08-24 16:46) [5]

Really?

← →
otido © (2003-08-24 16:51) [6]

Yes.. my computer is not very good...

← →
ИМХО © (2003-08-24 17:08) [7]

Dude... I"m SO sorry... No money - not funny?

← →
otido © (2003-08-24 17:10) [8]

right(

← →
Тих (2003-08-24 18:22) [9]

Вставить куда нужно поле с именем, например, "counter"
Заteм

pDoc.Variables("counter").Value = 12
pDoc.Fields.Update

← →
otido © (2003-08-24 19:16) [10]

2 Тих
А можно разжевать пожалуйста, pDoc это где?) серьезно, не наю(

← →
Lola © (2003-08-24 19:50) [11]

Можно еще использовать вариант с Access. Делаешь таблицу с полем, куда записываешь свои номера. Если надо только номера, начиная с единицы, то хватит только автоинкримент. Потом рисуешь репорт, там среди визардов есть LabelWizard, с ним можно на одном листе несколько карточек с номерами расположить.

← →
otido © (2003-08-24 19:59) [12]

2 Lola
1)Добрый вечер, Эстония))
2)Не покатит Аксесс...(( всё именно через Ворд прогонятеся... документик уже готовый.. а числа эти по одному в копию ставятся...
ЗЫ
Я может чего-то недопонял? с Аксессом не работал((( молодой ишшо(

← →
Lola © (2003-08-24 20:04) [13]

> otido © (24.08.03 19:59) [12]

> документик уже готовый

что значит готовый, есть заготовка в doc-файле? но репорт можно нарисовать таким же

← →
otido © (2003-08-24 20:20) [14]

2 Lola
? глазами можно похлопать?

Итак, есть файлик, в нем текстик.. продолжим пример про лотерейные билеты...

***********
**ЛОТЕРЕЯ**
** 1234 **
***********

вот такая вот допустим штучка, ОДНА на лист!
в идеале хотелось бы именно вариант с Визуальным Бейсиком для Аппликэйшн.. то есть грубо говоря как я это вижу

Туда на место цифирок вставлено поле.. при открытии допустим макрос считывает значение переменной 1234 из файла, попутно его inc()-ая и записывая обратно в файл, и вставляет в это поле... если совсем зажраться то шобы он его тут же и распечатывал.
То есть два момента мне сложны ( пока) 1)как организовать это поле 2)как его программно менять.... с файлами вроде разберусь)) если по аналогии с JS то в 2)-ом нужно знать обьектную модель документа))

Госсподи.. ну написал... ничего не забыл?

← →
Lola © (2003-08-24 20:26) [15]

Хочешь печатьть по одному листу? т.е. задал значение для печати, распечатал этот лист и записал в базу номер распечатанного номера?

← →
blackman © (2003-08-24 20:31) [16]

В WORD запиши такой макрос (Сервис - макросы - создать). Сделай документ с меткой aaa
Загружаешь документ и выполняешь макрос
Sub MacroPrint()
"Переходим на метку, вставляем номер и печатаем 22 документа
Selection.GoTo What:=wdGoToBookmark, Name:="aaa"
For i = 1 To 22
Selection.TypeText Text:=Str(i)
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
Next i
End Sub

в какой-то мере да))) точнее совершенно верно) надеюсь..)

2 blackman
спасибо, вижу то что в принципе надо было.. честно скажу, немного неуверен в синтаксисе вот этого всего
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _ PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
особенно в символе "_". со всем отсальным пока ясно. Спасибо, если моно, уточните))

← →
Mr@MsGuns (2003-08-24 20:51) [19]

Не уверен - не садись за руль!

2 Mr@MsGuns (24.08.03 20:51) [19]
1)вот и не сажусь
2)я вообще водить не умею... машины))

>otido
F1 понажимай, когда заводить макрос будешь, если не верится.
А полную гарантию дает только страховой полис. :)

2 blackman
не "не верится" а "не уверен"... большая на мой взгляд разница))
меня просто интересует, это "_" так к чему приклеивается?

Не уверен. Не обгоняй. Вставляй, не укусит. Перенос.
А в help слабо заглянуть ? Все готовое хочешь ? :)

Вопросик по MS WORD 2000... может и с программированием связан... Найти похожие ветки