Серый форум — VBS: Ошибка при добавлении нового свойства в документ Word 2010

Re: VBS: Ошибка при добавлении нового свойства в документ Word 2010

null@example.com (alexii) — Thu, 01 Aug 2013 12:22:41 +0000

Не хочется сильно отдаляться от 1С

В 1С Вы этого не сделаете. Ни напрямую, ни через ScriptControl.

Re: VBS: Ошибка при добавлении нового свойства в документ Word 2010

null@example.com (sidnet1964) — Thu, 01 Aug 2013 12:17:55 +0000

alexii пишет:

    

    s = ForReading

alexii, спасибо!
Не хочется сильно отдаляться от 1С, но стоит попробовать.
Интересно, что же использовать в качестве объекта в данном примере?

Re: VBS: Ошибка при добавлении нового свойства в документ Word 2010

null@example.com (alexii) — Thu, 01 Aug 2013 10:44:57 +0000

YMP, на это:

Элемент
Обеспечивает доступ к мнемоническим константам, определённым в библиотеке типов нужного объекта (экземпляр объекта при этом не создаётся). Это позволяет не запоминать числовые значения констант, к которым постоянно нужно обращаться при написании кода.
Атрибут object задаёт программный идентификатор объекта. При необходимости можно указать версию объекта в атрибуте version. Вместо программного идентификатора объекта можно использовать глобальный код его библиотеки типов, задав его в атрибуте guid.
Например:
    

    s = ForReading

Re: VBS: Ошибка при добавлении нового свойства в документ Word 2010

null@example.com (YMP) — Thu, 01 Aug 2013 10:10:47 +0000

sidnet1964 пишет:

Не подскажете, как использовать в скриптах предопределенные константы MS Office не заменяя их числами?

Думаю, только определив их в коде скрипта как переменные. Интерпретатор VBScript ничего не знает про константы VBA.

Не знаю, впрочем, на что намекает alexii; может, я чего-то не догоняю.

Re: VBS: Ошибка при добавлении нового свойства в документ Word 2010

null@example.com (alexii) — Thu, 01 Aug 2013 09:48:52 +0000

Не подскажете, как использовать в скриптах предопределенные константы MS Office не заменяя их числами?

WSH: пишем сценарии в формате WSF

Re: VBS: Ошибка при добавлении нового свойства в документ Word 2010

null@example.com (sidnet1964) — Thu, 01 Aug 2013 09:22:46 +0000

YMP пишет:

А переменная msoPropertyTypeNumber где-нибудь определена?

Спасибо большое! Я считал msoPropertyTypeNumber предопределенной константой. После замены на числовое значение все заработало.

    |    MSWord.ActiveDocument.CustomDocumentProperties.Add ""Application2"", False, 1, 99

Не подскажете, как использовать в скриптах предопределенные константы MS Office не заменяя их числами?

Re: VBS: Ошибка при добавлении нового свойства в документ Word 2010

null@example.com (YMP) — Thu, 01 Aug 2013 09:07:10 +0000

А переменная msoPropertyTypeNumber где-нибудь определена?

VBS: Ошибка при добавлении нового свойства в документ Word 2010

null@example.com (sidnet1964) — Thu, 01 Aug 2013 08:51:27 +0000

Необходимо добавить новое пользовательское свойство в новый документ Word 2010. Запуск скрипта выполняется из 1С v7.

Процедура Установить()
    Попытка
        ScrptCtrl=СоздатьОбъект("MSScriptControl.ScriptControl");
        ScrptCtrl.Language="vbscript";

        ScrptCtrl.AddCode("
        |Sub SetProp()
        |    Set MSWord = CreateObject(""Word.Application"")
        |    MSWord.Documents.Add
        |    MSWord.Visible = True
        |    MSWord.ActiveDocument.CustomDocumentProperties.Add ""Application2"", False, msoPropertyTypeNumber, 99
        |End Sub
        |");

        ScrptCtrl.Run ("SetProp");
    Исключение
        Сообщить(ОписаниеОшибки());
    КонецПопытки;
КонецПроцедуры

При вызове процедуры получаю сообщение 1С: "Ошибка выполнения Microsoft VBScript: Недопустимый вызов или аргумент процедуры", оно относится к оператору "MSWord.ActiveDocument.CustomDocumentProperties.Add".

Код самого скрипта нормально работает в VBA

Sub SetProp()
    Set MSWord = CreateObject("Word.Application")
    MSWord.Documents.Add
    MSWord.Visible = True
    MSWord.ActiveDocument.CustomDocumentProperties.Add "Application2", False, msoPropertyTypeNumber, 99
End Sub

Таким образом, по синтаксису и составу параметров все должно быть верно. Но не работает.