Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2003.09.11;
Скачать: [xml.tar.bz2];

Вниз

Вопросик по 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


 
otido   (2003-08-24 20:34) [17]

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


 
otido   (2003-08-24 20:38) [18]

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]

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


 
otido   (2003-08-24 20:55) [20]

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


 
blackman   (2003-08-24 20:56) [21]

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


 
otido   (2003-08-24 21:03) [22]

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


 
blackman   (2003-08-24 22:02) [23]

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



Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.09.11;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.49 MB
Время: 0.053 c
3-33466
san
2003-08-21 06:29
2003.09.11
Составное Lookup-поле


14-33801
Igor_thief
2003-08-22 13:01
2003.09.11
Странный глюк


1-33589
Pirat
2003-08-27 21:04
2003.09.11
TSplitter в стиле Mozilla, где взять ?


3-33475
Nikkkkk
2003-08-20 15:10
2003.09.11
не отрабатывается запрос в TQuery


1-33637
Сергей Резников
2003-08-28 16:32
2003.09.11
Перетаскивание и TListView





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский