Ошибка 13: Несоответствие типа

-1

У меня есть пример Добавить инов Эксель: Я называю объект InDesign как:Ошибка 13: Несоответствие типа

Private Sub btnStart_Click() 
    Dim pCnt As Integer 
    Dim myInDesign As InDesign.Application 
    Dim myDoc As InDesign.Document 
    Dim myPage As InDesign.Page 

    ActiveWorkbook.Colors(17) = RGB(255, 204, 255) 
    Set myInDesign = CreateObject("InDesign.Application") 
    Set myDoc = myInDesign.ActiveDocument 

    Set myInDesign = Nothing 
    Set myDoc = Nothing 

    Unload Me 
End Sub

Показать Error 13: Type mismatch на Set myInDesign = CreateObject("InDesign.Application")

Почему? как исправить? Спасибо всем.

источник

2013-04-16 D T

Dim myInDesign как Object или Set myInDesign = New InDesign.Application в зависимости от вашего конструктора аддона – 2013-04-16 11:04:54

Или снимок в темном 'CreateObject (« InDesign.Application.CS5 »)', если 'CS5' установлен? –

Я бегаю на win xp нормально, но запустить на win 7 была ошибка показа. –

я найти ответ на http://forums.adobe.com/thread/834780

удалить файл C: \ ProgramData \ Adobe \ InDesign \ Version 6.0 \ en_US \ Scripting Support \ 6.0 \ Resources для визуального Basic.tlb И запустить Excel и InDesign с разрешения администратора

источник

2013-04-23 08:55:51

ответ

Смежные вопросы