1

Тема: Макрос на внесение свойств документа

Добрый вечер. Нужен макрос который создает или изменяет (если свойство есть)
свойство документа. Проблема в том что если свойство уже есть, то повторно внести его не могу, пишет ошибку.


Исходный макрос на добавление. но срабатывает 1 раз пока нет этого свойства.

   
    With ActiveDocument.CustomDocumentProperties
        .Add Name:="Complete", _
            LinkToContent:=False, _
            Type:=msoPropertyTypeString, _
            Value:="111"
        End With


Нужно добавить проверку свойства на его наличие. Как сделать не пойму.


Private Sub DocumentProperties()
    If ActiveDocument.CustomDocumentProperties("Complete") = "" Then
    ActiveDocument.CustomDocumentProperties("Complete").Delete
    End If
        With ActiveDocument.CustomDocumentProperties
        .Add Name:="Complete", _
            LinkToContent:=False, _
            Type:=msoPropertyTypeString, _
            Value:="111"
        End With
   
End Sub

2

Re: Макрос на внесение свойств документа

tna пишет:

. . .
Нужен макрос который создает или изменяет (если свойство есть)
свойство документа.
. . .

Посмотрите примеры по ссылке внешняя ссылка Макросы, приведенные там, позволяют читать и устанавливать свойства в документеи - как встроенные, так и пользовательские. Вообще хороший сайт, рекомендую.