Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
gjghjc
-
- Постоялец

-

-
- Сообщения: 661
- Зарегистрирован: 13.10.2002 (Вс) 8:28
- Откуда: БАЛАКЛАВА!!
gjghjc » 26.06.2003 (Чт) 12:56
Люди помогите советом!!!!
У меня есть некая типовая форма договора (в Word'e со всякими эмблемами и прочей мишурой + в документе на странице две колонки) в которой в соответствующих местах оставлены пробелы для внесения реквизитов сторон, фамилий и пр. Так вот можно ли сделать так чтобы при заполнении текстовых полей в моей программе она вставляла все это в нужные места.
Потому как подогнать все это по позициям на уже распечатанном договоре труда большого не составляет а хочется чтобы вставил чистый лист а на выходе хлоп и все на своих местах.
Заранее спасибо!!!!
Утро добрым не бывает!
-
Cyrax
-
- Cyberninja

-

-
- Сообщения: 891
- Зарегистрирован: 25.04.2002 (Чт) 21:20
- Откуда: Magnitogorsk, Russia
-
Cyrax » 26.06.2003 (Чт) 14:03
вполне...
например так:
1. шаблон форматируется с помощью таблиц (хотя бы те места, где предполагается в ставка текста)
2. к проекту подключается Microsoft Word X.0 Object Library
3. а в коде пишем примерно так
- Код: Выделить всё
Dim WDoc as Word.Document
Dim WSel As Word.Selection
Set WDoc = New Word.Document
WDoc.Application.Documents.Add "путь_к_шаблону"
Set WSel = WDoc.Application.ActiveWindow.Selection
WSel.Document.Tables(индекс_таблицы).Cell(строка, колонка).Range.Text = текст
...
...
' сохраняем
WSel.Application.ActiveDocument.SaveAs DocPath & "\" & FileName, 0
' печатаем
WSel.Application.ActiveDocument.PrintOut
' закрываем
WSel.Application.ActiveDocument.Close
Set WSel = Nothing
Set WDoc = Nothing
Ты это ему расскажи. Я уже пять болтов отвинтил, и конца не видно... (озадаченно) А это в какую сторону тянуть? Ну-ка... Ага, этот был лишний, этот вообще не отсюда, и этот... Точно, два болта.
Welcome to IRC
-
gjghjc
-
- Постоялец

-

-
- Сообщения: 661
- Зарегистрирован: 13.10.2002 (Вс) 8:28
- Откуда: БАЛАКЛАВА!!
gjghjc » 27.06.2003 (Пт) 9:29
Большое спасибо
А если не форматировать места под печать в виде таблиц, тогда, как я понимаю будет трудно определить в каком месте делать вставку. Да?
Утро добрым не бывает!
-
Cyrax
-
- Cyberninja

-

-
- Сообщения: 891
- Зарегистрирован: 25.04.2002 (Чт) 21:20
- Откуда: Magnitogorsk, Russia
-
Cyrax » 27.06.2003 (Пт) 9:44
gjghjc писал(а):Большое спасибо
А если не форматировать места под печать в виде таблиц, тогда, как я понимаю будет трудно определить в каком месте делать вставку. Да?
где-то видел пример использования для этого свойств документа, но что-то не вспомню где и как именно это происходило.
а при помощи таблиц и довольно просто организовать вставку нужного текста, и документ будет выглядеть вполне профессионально.
я таким образом автоматизировал подготовку предписаний для отдела ГГТН.
Ты это ему расскажи. Я уже пять болтов отвинтил, и конца не видно... (озадаченно) А это в какую сторону тянуть? Ну-ка... Ага, этот был лишний, этот вообще не отсюда, и этот... Точно, два болта.
Welcome to IRC
-
gjghjc
-
- Постоялец

-

-
- Сообщения: 661
- Зарегистрирован: 13.10.2002 (Вс) 8:28
- Откуда: БАЛАКЛАВА!!
gjghjc » 19.07.2003 (Сб) 7:52
А как теперь правильно прибить Word чтобы нетронуть остальных документов. И в тоже время если Word запущен небыл, а использовалось только программное открытие документа и вывод его на печать то как после этого корректно выгрузить Word.
Утро добрым не бывает!
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Majestic-12 [Bot], SemrushBot, Yandex-бот и гости: 11