Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открытие файлов *.cdr с помощью VBScript / 7 сообщений из 7, страница 1 из 1
16.05.2013, 12:24
    #38260024
mdkChaos
mdkChaos
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие файлов *.cdr с помощью VBScript
Всем привет.

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

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

Да, макрос настроен на открытие файла.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2013, 13:52
    #38260235
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие файлов *.cdr с помощью VBScript
Не знаю объектной модели корела. Если есть 1) возможность так открыть файл (или перенастроить макрос), чтобы он не запускался; 2) возможность запуска макроса методом объектной модели, то можно так и сделать. В этом случае макрос по идее выполнится синхронно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открытие файлов *.cdr с помощью VBScript / 7 сообщений из 7, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 1039ms
Закрыть
start [/forum/search_topic.php?author=%D0%A1%D0%BF%D0%B0%D1%80%D1%82%D0%B0%D0%BA+%D0%92%D0%B8%D1%82%D0%B5%D0%B1%D1%81%D0%BA&author_mode=last_topics&do_search=1]:
 0ms
get settings:
 10ms
get forum list:
 14ms
get settings:
 8ms
get forum list:
 11ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 41ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 871ms
total:  1039ms
x
x
Закрыть


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