Option Explicit

Public Sub Test()
  
  Dim objWordApp As Word.Application
  Dim objDocProp As Office.DocumentProperty
  
  Set objWordApp = Application
  
  With objWordApp.Documents(1)
    
    On Error Resume Next
    
'    'alle Standard-Eigenschaften ausgeben
'    For Each objDocProp In .BuiltInDocumentProperties
'      Err.Clear
'      Debug.Print "[" & objDocProp.Name & "] = '" & objDocProp.Value & "'"
'      If Err.Number <> 0 Then Debug.Print "[" & objDocProp.Name & "] = {NULL}"
'    Next
    
    'benutzerdefinierte Beispiele erstellen
    Set objDocProp = .CustomDocumentProperties.Add( _
                                          Name:="Client", _
                                          Value:="Bosch GmbH", _
                                          Type:=MsoDocProperties.msoPropertyTypeString, _
                                          LinkToContent:=False)
    
    'benutzerdefinierte Beispiele erstellen
    Set objDocProp = .CustomDocumentProperties.Add( _
                                          Name:="OrderNo", _
                                          Value:="12-3456-789-0", _
                                          Type:=MsoDocProperties.msoPropertyTypeString, _
                                          LinkToContent:=False)
    
    'alle benutzerdefinierten Eigenschaften ausgeben
    For Each objDocProp In .CustomDocumentProperties
      Err.Clear
      Debug.Print "[" & objDocProp.Name & "] = '" & objDocProp.Value & "'"
      If Err.Number <> 0 Then Debug.Print "[" & objDocProp.Name & "] = {NULL}"
    Next
    
    On Error GoTo 0
    
  End With
  
End Sub

Mit dem Unterschied dass du den Wert (Value) aus der entspr. Zelle nimmst.