Поиск способа записи в файлы расширенных атрибутов автора и комментариев с помощью VBA [duplicate]

Question

Поиск способа записи в файлы расширенных атрибутов автора и комментариев с помощью VBA [duplicate]

Для всех браузеров, особенно на Android. Возможно, вы можете добавить это

   try{
       blob = new Blob( byteArrays, {type : contentType});
    }
    catch(e){
        // TypeError old chrome and FF
        window.BlobBuilder = window.BlobBuilder || 
                             window.WebKitBlobBuilder || 
                             window.MozBlobBuilder || 
                             window.MSBlobBuilder;
        if(e.name == 'TypeError' && window.BlobBuilder){
            var bb = new BlobBuilder();
            bb.append(byteArrays);
            blob = bb.getBlob(contentType);
        }
        else if(e.name == "InvalidStateError"){
            // InvalidStateError (tested on FF13 WinXP)
            blob = new Blob(byteArrays, {type : contentType});
        }
        else{
            // We're screwed, blob constructor unsupported entirely   
        }
    }

2

vba

задан Ben 7 June 2013 в 18:35

2 ответа

Другие вопросы по тегам:

vba

Похожие вопросы:

score -3 · Answer 1

'Сделать файл Read-Only

SetAttr "c:\temp\Sample.txt", vbReadOnly

' Сделать файл Hidden

SetAttr "c:\temp\Sample.txt", vbHidden

'Обратите внимание, что если вы меняете один атрибут, существующий атрибут перезаписывается , Для создания файла как для чтения, так и для скрытых используйте оба атрибута в функции

SetAttr "c:\temp\Sample.txt", vbHidden + vbReadOnly

'Удалить все атрибуты - конвертировать файл только для чтения в файл чтения-записи, отобразить файл и т. Д.

SetAttr "c:\temp\Sample.txt", vbNormal

Почему мой ответ подавлен? Кто-нибудь может прокомментировать? Чтобы я мог исправить или улучшить ответ — Adarsh Madrecha, 13 January 2018 в 14:07
Я считаю, что это потому, что в вопросе указаны расширенные свойства файла, а не параметры object.attributes:) — Albert F D, 13 January 2018 в 20:20

score 2 · Answer 2

Это невозможно сделать с использованием метода, который вы используете сейчас. Вы можете установить и использовать Microsoft ActiveX dsofile.dll для получения и установки расширенных свойств с помощью VBScript.

Set objFile = CreateObject("DSOFile.OleDocumentProperties")
objFile.Open("C:\My Path\MyFile.doc")
objFile.SummaryProperties.Subject = "My Subject"
objFile.Save
set objFile = Nothing