Вы выбрали конфигурацию, но не активировали ее:
Set swCustPropMgr = CmpDoc.Extension.CustomPropertyManager(CompConfig)
'------------------------------------------------------------------------------- lRetVal = CmpDoc.ShowConfiguration2(CompConfig)
'-------------------------------------------------------------------------------
lRetVal = swCustPropMgr.Get4("Наименование", False, Val, ValOut)
If ValOut = Empty Then
Set swCustPropMgr = CmpDoc.Extension.CustomPropertyManager("")
lRetVal = swCustPropMgr.Get4("Наименование", False, Val, ValOut)