ник: Йожык
Ок. Добрый день всем.
Задачка - импортировать банковскую выписку (*.rtf) в таблицу
Описываем стандартно, типо:
Set wordApp = CreateObject("Word.Application")
Set Worddoc = wordApp.Documents.Open(Chr(34) & fldPathFile & Chr(34))
tCnt = Worddoc.Tables.Count
' и пошло-поехало
|
Импортировали, закрыли, тоже стандартно...
...
Worddoc.Saved = False
Worddoc.Close (0)
Set Worddoc = Nothing
wordApp.Application.quit
Set wordApp = Nothing
|
А вот и ситуёвина: когда открытых файлов Ворд нет - все проходит на ура.
Когда есть хотя бы еще один открытый - Аксесс ошибок не выдает, но Ворд выдает сообщение "Данный файл используется другим приложением или пользователем (С:\Documents And Settings\...\Normal.dot)"
Жму Ок - открывается окно сохранения.
Нажимаю Отмена - открывается пустое окно Word.
Закрываю окно Word появляется сообщение: Общий шаблон документа Normal.dot был изменен. Сохранить его??
Ёклмн, что называется. В пятницу полдня убил... и не решил.
Выписка - в формате RTF
галка "Запрос на сохранение шаблона Normal.dot" отключена.
- - -
UPDATE: Пока писал, вторым глазом в MSDN'е докопался.
Пост оставлю, вдруг кому пригодится...
Решение:
Обошелся строкой:
wordApp.NormalTemplate.Saved = True
|
Подробности: http://support.microsoft.com/kb/285885/ru
- - -
Всем спасибо
- - -
P.S. А то сразу: УБЕЙ ЕГО! УБЕЙ ЕГО!
