Do you mean 'Custom Name' as 'User Specified Name'? If it is the case then replace the following line:
ConfigMgr.AddConfiguration FullName, "Ag", "", 0, "", FullName
Set swConfig = ConfigMgr.AddConfiguration(FullName, "Ag", "", 0, "", FullName) 'where swCofnig as SldWorks.Configuration
swConfig.BOMPartNoSource = swBOMPartNumberSource_e.swBOMPartNumber_UserSpecified
swConfig.AlternateName = "Your Specific Name"
swConfig.UseAlternateNameInBOM = True
Just replace the text "Your Specific Name" with you name and it should work.
yes, I mean this. It looks good, but there is some error: "swConfig.BOMPartNoSource object variable or with block variable not set."
How can I set this?
It works. I don't know where was the mistake.