Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
3 / 3 / 0
Регистрация: 12.07.2010
Сообщений: 128

Обязательство (Set objWord = Nothing) в коде

13.08.2010, 14:46. Показов 1896. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Господа профессионалы!
В примерах и топиках встречается подобный код:
Visual Basic
1
2
3
4
5
6
7
8
9
Sub Mysub()
    Dim objWord As Object
    Set objWord = CreateObject('Word.Application')
 
    '... трали-вали
 
    objWord.Quit
    Set objWord  = Nothing
End Sub
И там часто указывается на обязательность последней строки (Set objWord = Nothing).
Вопрос чисто теоретический: действительно-ли это обязательно,
ведь переменная objWord локальная и существует только в процедуре Mysub, т.е. она и так уничтожается! Или я не прав???
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
13.08.2010, 14:46
Ответы с готовыми решениями:

objWord.open не срабатывает
Подскажите, почему не работает следующий код на машине с Win2000 & Office2000, а на WinXP & OfficeXP все проходит без проблем ??? ...

Ошибка в коде (Object reference not set to an instance of an object)
Имеется данный код (ниже), если же проходит по следующему пути: метод 2, метод 2.1, метод 2.1.1, No_Break, правка метод 2, метод 2.2 то...

Union(Set set1, Set set2) и intersect(Set set1, Set set2)
Напишите методы union(Set set1, Set set2) и intersect(Set set1, Set set2), реализующих операции объединения и пересечения двух множеств....

7
Messir
14.08.2010, 02:54
не обязательно, но с точки зрения 'культуры' стоит писать...
3 / 3 / 0
Регистрация: 12.07.2010
Сообщений: 128
14.08.2010, 03:33  [ТС]
А с точки зрения культуры, можно-ли вообще завершать свое приложение без objWord.Quit, чтобы оставить юзеру документ на усмотление (или рассмотрение)?
0
Messir
14.08.2010, 14:36
Обязательно надо завершить. Иначе только память/ресуры отжирать будет... А с точки зрения культуры - 'запустил - убери за собой'
3 / 3 / 0
Регистрация: 12.07.2010
Сообщений: 128
14.08.2010, 23:42  [ТС]
А дело в том, что документ-то создается программой, а результат сразу хочется показать юзеру, чтобы он не искал где же там этот док был сохранен.
0
Messir
14.08.2010, 23:45
Тогда лучше сохранить и запустить через ShellExecute - чтоб Word открылся по-нормальному, и не знал, что его поиспользовали...
3 / 3 / 0
Регистрация: 12.07.2010
Сообщений: 128
15.08.2010, 02:06  [ТС]
Спасибо за советы...я так и сделал.
Все-же беспокоит скорость: за один раз формируется пакет из пары
дюижн файлов по следующей схеме: имеются заранее подготовленные документы (как-бы шаблоны? всего 22Mb), которые открываются и подправляются программой, затем юзеру предлагается распечатать энное количество такого-то документа, энное другого и т.п. или ознакомиться перед распечаткой - не хочется зря переводить сотни листов из-за какой-то ошибки юзера, если нет уверенности (все зависит от данных, введенных юзером).
Получается мы запускаем Word, открываем шаблоны, редактируем, сохраняем, закрываем, выходим из Word, за тем снова запускаем Word, открываем документы... а юзер все это время сидит и наровит чего-нибудь испортить Криво все это как-то!
А нельзя-ли все наоборот: сначала ShellExecute, затем GetObject(,'Word.Application'), потом ... Set objWord = Nothing и Happy End?
Или как-нибудь по-другому?
Может я изобретаю велосипед, тогда уж хочется с моторчиком и автопилотом ...
0
3 / 3 / 0
Регистрация: 12.07.2010
Сообщений: 128
15.08.2010, 13:01  [ТС]
Продолжение вопроса:
когда ShellExecute возвращает управление, т.е. будет-ли сл. код всегда работать безошибочно:
Visual Basic
1
2
    Call ShellExecute(0, 'open', '111.doc', '', 'C:1234567 ', 0&)
    Set objWord = GetObject(, 'Word.Application')
И еще вопрос... Как защитить шаблон ???
Создаю документ на основе своего dot-шаблона:
Задолбали юзеры - лезут и правят мои шаблоны, поставил защиту - ура, шикарно!!!
Теперь задолбали крякеры - стягивают шаблоны и выдают за свое достижение %(( Пробовал поставить пароль на шаблон - спрашивает пароль при выполнении кода:
Visual Basic
1
    Documents.Add Template:='C:ШаблоныШаблон1.dot', NewTemplate:=False, DocumentType:=wdNewBlankDocument, Visible:=True
Как сделать что-нибудь наподобие (Documents.Add ..., PasswordTemplate:='фиг крякерам!'), чтобы не спрашивал пароль у программы?
Вообще надежна ли эта защита при использовании 'хороших' паролей, т.е. не сохраняется ли пароль в файле в незащищенном или 'слегка защищенном' виде? Ведь известно, что у Microsoft такие варианты бывали.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
15.08.2010, 13:01
Помогаю со студенческими работами здесь

Ошибка SQL запрос: SET CHARACTER SET 'utf8';
Два года назад на одном из форумов некто задал вопрос (см. ниже), на который так никто и не ответил. У меня сейчас точная копия проблемы....

Чем отличается guid id {get; set;} от int id {get; set;}
Подскажите пожалуйста чем отличается guid id {get; set;} от int id {get; set;}?

Ошибка в коде strSQL = "SELECT * FROM users " Set rst = CurrentDb.OpenRecordset(strSQL)
Есть такие строки кода Dim rst As Recordset Dim strSQL As String strSQL = "SELECT * FROM users " Set rst =...

Чем отличается private set от set?
Чем отличается private set от set? Зачем это вообще используется?

Аналог в VB: Set myfileobject = server.CreateObject('scripting.filesystemobject') Set mytextfile = myfileobject.CreateTextFile('C:1.txt') ?
Mojno li ispol'zovat' v VB shto to identichnoe etim strochkam : Set myfileobject = server.CreateObject('scripting.filesystemobject') ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru