Изменение пользовательского свойства AutoCAD файла

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Изменение пользовательского свойства AutoCAD файла (Word)

Proff_BMS

Дата: Среда, 16.11.2016, 16:45 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте, уважаемые форумчане!
Подскажите, пожалуйста, возможно ли с помощью кода VBA запускаемого в Excel записать значение в пользовательское свойство не excel-евской книги (в принципе любого файла)?
Есть пользовательское свойство «Обозначение», «ФИО» в файле шаблона чертежа AutoCAD (допустим путь к этому файлу D:\Шаблон.dwt). Их и хочу изменить в dwt файле.
То есть, макрос должен присвоить значение свойству «Обозначение», например, АБВГ, а свойству «ФИО» присвоить значение, например, «Иванов».

Прочитал про свойство CustomDocumentProperties, но не понял как это сделать для другого файла (D:\Шаблон.dwt). Или для AutoCAD файлов эта функция не применима? Буду благодарен если поможете кодом.

Пример вкладки «Прочие» из свойств файла:

К сообщению приложен файл: 5402354.dwt (89.7 Kb)

Сообщение отредактировал Proff_BMS - Четверг, 17.11.2016, 10:50

Ответить

krosav4ig

Дата: Среда, 16.11.2016, 17:30 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Здравствуйте
Как-то так можно
[vba]

Код

Sub ChangeProps()
    Dim note$: note = "АБВГ"
    Dim FIO$: FIO = "Иванов"
    With CreateObject("DSOFile.OleDocumentProperties")
        .Open "D:\Шаблон.dwt", , 2
        With .CustomProperties
            On Error Resume Next
            .Add "ФИО", FIO
            .Add "Обозначение", note
            Err.Clear: On Error GoTo 0
            .Item("ФИО") = FIO
            .Item("Обозначение") = note
        End With
            .Save: .Close
    End With
End Sub

[/vba]
для работы нужно скачать и установить DSOfile

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 16.11.2016, 17:37

Ответить

Proff_BMS

Дата: Пятница, 25.11.2016, 01:37 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

krosav4ig, спасибо за ответ!
К сожалению после установки DSOfile и запуска кода, кроме изменения даты изменения файлы ничего не происходит.
Есть ли смысл ковырять Tools → References. Там что-то есть для Autodesk AutoCAD, но для чего это окно служит?

Ответить

Изменение пользовательского свойства AutoCAD файла (Word)

Страница 1 из 1
1