Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Изменение пользовательского свойства AutoCAD файла - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » AutoCad » Изменение пользовательского свойства AutoCAD файла (Word)
Изменение пользовательского свойства AutoCAD файла
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
 
Ответить
СообщениеЗдравствуйте, уважаемые форумчане!
Подскажите, пожалуйста, возможно ли с помощью кода VBA запускаемого в Excel записать значение в пользовательское свойство не excel-евской книги (в принципе любого файла)?
Есть пользовательское свойство «Обозначение», «ФИО» в файле шаблона чертежа AutoCAD (допустим путь к этому файлу D:\Шаблон.dwt). Их и хочу изменить в dwt файле.
То есть, макрос должен присвоить значение свойству «Обозначение», например, АБВГ, а свойству «ФИО» присвоить значение, например, «Иванов».

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

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

Автор - Proff_BMS
Дата добавления - 16.11.2016 в 16:45
krosav4ig Дата: Среда, 16.11.2016, 17:30 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2346
Репутация: 989 ±
Замечаний: 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
 
Ответить
СообщениеЗдравствуйте
Как-то так можно
[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

Автор - krosav4ig
Дата добавления - 16.11.2016 в 17:30
Proff_BMS Дата: Пятница, 25.11.2016, 01:37 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Proff_BMS
Дата добавления - 25.11.2016 в 01:37
Мир MS Excel » Вопросы и решения » Excel и другие приложения » AutoCad » Изменение пользовательского свойства AutoCAD файла (Word)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!