CustomDocumentProperties - Пользовательские свойства в документе

Private Sub AddCustomDocumentProperties()
    With ActiveDocument.CustomDocumentProperties
        .Add Name:="Complete", _
            LinkToContent:=False, _
            Type:=msoPropertyTypeString, _
            Value:=""
        .Add Name:="CustomNumber", _
            LinkToContent:=False, _
            Type:=msoPropertyTypeNumber, _
            Value:=1000
        .Add Name:="CustomString", _
            LinkToContent:=False, _
            Type:=msoPropertyTypeString, _
            Value:="This is a custom property."
        .Add Name:="CustomDate", _
            LinkToContent:=False, _
            Type:=msoPropertyTypeDate, _
            Value:=Date
    End With
End Sub

Private Sub DisplayCustomDocumentProperties()
    Dim i As Integer
    For i = 1 To ActiveDocument.CustomDocumentProperties.Count
        MsgBox ActiveDocument.CustomDocumentProperties(i).Name
    Next i
End Sub

Private Sub DisplayCustomDocumentPropertiesValues()  
    Dim i As Integer  
    With ActiveDocument
        ' Присвоение свойству значения 
        For i = 1 To .CustomDocumentProperties.Count  
            .CustomDocumentProperties(i).Value = i * i  
        Next i  

        ' Получение значения свойства
        For i = 1 To .CustomDocumentProperties.Count  
            MsgBox "Имя: " & .CustomDocumentProperties(i).Name & vbCr & "Значение : " & .CustomDocumentProperties(i).Value  
       Next i  
    End With  
End Sub

Private Sub DeleteCustomDocumentProperties()
    ActiveDocument.CustomDocumentProperties("Complete").Delete
    ActiveDocument.CustomDocumentProperties("CustomNumber").Delete
    ActiveDocument.CustomDocumentProperties("CustomString").Delete
    ActiveDocument.CustomDocumentProperties("CustomDate").Delete
End Sub