ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открытие файлов *.cdr с помощью VBScript
7 сообщений из 7, страница 1 из 1
Открытие файлов *.cdr с помощью VBScript
    #38260024
mdkChaos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mdkChaos
Гость
Всем привет.

У меня есть файл Test.vbs:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Dim fso, CD, Start, sFile, DC
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder("C:\Corel\")
sFile = "R1(test).cdr"
Set CD = CreateObject("CorelDraw.Application")
Start = Timer
Do While Timer<Start+25
Loop
Set DC = CD.Application.OpenDocument (objFolder & "\" & sFile)
Start = Timer
Do While Timer<Start+25
Loop
DC.Close
CD.Quit



Он открывает файл CorelDraw с макросом.
Вся проблема в том что если CorelDraw запущен, процесс проходит без проблем.
Но если CorelDraw закрыт, он пытается его открыть. При этом в процесах видно CorelDraw, а графической оболочки нет и соответственно ничего больше не происходит.

Подскажите, пожалуйста, как можно корректно запустить CorelDraw.
У меня CorelDraw Х6.

За ранее спасибо за любую помощь.
...
Рейтинг: 0 / 0
16.05.2013, 12:24
| Ответить | Цитировать | Написать  
Открытие файлов *.cdr с помощью VBScript
    #38260031
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
По идее у CD должно быть что-то вроде Visible = true.
...
Рейтинг: 0 / 0
16.05.2013, 12:26
| Ответить | Цитировать | Написать  
Открытие файлов *.cdr с помощью VBScript
    #38260064
mdkChaos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mdkChaos
Гость
AntonariyПо идее у CD должно быть что-то вроде Visible = true.

Огромное спасибо.
Добавил CD.Visible = True и всё заработало. :)
...
Рейтинг: 0 / 0
16.05.2013, 12:39
| Ответить | Цитировать | Написать  
Открытие файлов *.cdr с помощью VBScript
    #38260079
mdkChaos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mdkChaos
Гость
Ещё такой вопрос.
Можно ли, как-то сделать, что бы скрипт дожидался завершения работы макроса и потом продолжал свою работу?
...
Рейтинг: 0 / 0
16.05.2013, 12:46
| Ответить | Цитировать | Написать  
Открытие файлов *.cdr с помощью VBScript
    #38260090
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Там какой-то макрос автоматически при открытии cdr-файла запускается?
...
Рейтинг: 0 / 0
16.05.2013, 12:51
| Ответить | Цитировать | Написать  
Открытие файлов *.cdr с помощью VBScript
    #38260213
mdkChaos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mdkChaos
Гость
AntonariyТам какой-то макрос автоматически при открытии cdr-файла запускается?

Да, макрос настроен на открытие файла.
...
Рейтинг: 0 / 0
16.05.2013, 13:45
| Ответить | Цитировать | Написать  
Открытие файлов *.cdr с помощью VBScript
    #38260235
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Не знаю объектной модели корела. Если есть 1) возможность так открыть файл (или перенастроить макрос), чтобы он не запускался; 2) возможность запуска макроса методом объектной модели, то можно так и сделать. В этом случае макрос по идее выполнится синхронно.
...
Рейтинг: 0 / 0
16.05.2013, 13:52
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открытие файлов *.cdr с помощью VBScript
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38260213&tid=2156978]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 163ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 236ms
total:  480ms
созд. / загр.: 480ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]