[VBA]Word CustomDocumentProperties 추가

'=========================================================================
'   커스텀 속성 : sFieldName 있으면 업데이트, 없으면 추가
'-------------------------------------------------------------------------
Sub CustomFields_Update(sFieldName As String, s_Value As String)
 
    Dim doc_properies As Office.DocumentProperties
    Set doc_properies = Application.ActiveDocument.CustomDocumentProperties
 
    Dim prop As Office.DocumentProperty
    Dim bFind As Boolean
    bFind = False
 
    For Each prop In doc_properies
        If UCase(prop.Name) = UCase(sFieldName) Then
            prop.value = s_Value
            bFind = True
            Exit For
        End If
    Next prop
   
    If Not bFind Then
        doc_properies.Add sFieldName, False, msoPropertyTypeString, s_Value
    End If
   
   
End Sub
 
 
 
Sub test()
 
    CustomFields_Update "test", "test"
 
End Sub