Тема: Макрос на внесение свойств документа
Добрый вечер. Нужен макрос который создает или изменяет (если свойство есть)
свойство документа. Проблема в том что если свойство уже есть, то повторно внести его не могу, пишет ошибку.
Исходный макрос на добавление. но срабатывает 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