还是没搞定

获取当前文档中所有的配置名
我这只是对程序后半段的修改，并不是完整的程序！！！

Dim params As Variant
    params = swModel.GetConfigurationNames
    Dim vName As Variant
    Dim Name As String
    Dim thisConfig As Configuration
         
    swModel.DeleteCustomInfo2 "", "外形尺寸"   '删除自定义中"外形尺寸"属性
  
    For Each vName In params
        Name = vName
        Set thisConfig = swModel.GetConfigurationByName(Name)
        
        swModel.DeleteCustomInfo2 thisConfig.Name, "外形尺寸" '删除配置中"外形尺寸"属性
        swModel.AddCustomInfo3 thisConfig.Name, "外形尺寸", swCustomInfoText, _
            Format(chang, "0") & "x" & Format(kuan, "0") & "x" & Format(gao, "0") '将外形尺寸"属性添加到配置

    Next vName