Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Код не работает после перехода с 2003 на 2007 Офис  (Прочитано 8675 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Looser
Новенький

ru
Offline Offline

« : 21-05-2011 20:21 » 

Может быть, кто-то сталкивался?

Из Экселя открывается ворд, пишется в файл инфа и тп.
Так вот, код, который много лет работал в старом Ms Office
заглючит после перехода на новый.

в этом месте:

 Set objword = New Word.Application
        With objword
.Application.WindowState = wdwindowstatemaximize
.Application.Visible = True
.Application.Documents.Add
End With

эксель виснет и в конце концов выдает "Excel ожидает завершения OLE операции другим приложением"

Побороть проблему удается так:

Set objword = New Word.Application
        With objword
'.Application.WindowState = wdwindowstatemaximize
'.Application.Visible = True

.Application.Documents.Add
End With


Но с невидимым вордом неудобно...

Помогите, пожалуйста! Просто никаких идей, что предпринять.
Заранее спасибо.
Записан
RXL
Технический
Администратор

Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 22-05-2011 08:51 » new

Возможно, в новых версиях VBA таки стал чувствительным к регистру. Замени "wdwindowstatemaximize" на "wdWindowStateMaximize" и попробуй еще раз.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines