Question

excel 如何使用 VBA CustomDocumentProperties 方法 删除自定义的文档属性呢？谢谢！

ThisWorkbook.CustomDocumentProperties.Add Name:="bbb", LinkToContent:=False, Type:=msoPropertyTypeString, Value:=1000 这个可以添加自定义文档属性，现在我需要有个方法来判断是否这个 自定义属性是否存在，存在就删除重新添加。谢谢！

Answer 1

使用错误陷阱
Sub CustProperties()

On Error Resume Next
a = ThisWorkbook.CustomDocumentProperties("bbb") '返回自定义属性value，属性不存在抛出错误
If Err.Number Then '添加自定义属性
ThisWorkbook.CustomDocumentProperties.Add Name:="bbb", LinkToContent:=False, Type:=msoPropertyTypeString, Value:=1000
Else
ThisWorkbook.CustomDocumentProperties("bbb").Delete '删除自定义属性
End If
End Sub

追问

用异常捕获确是可以，但是我已经找到较好的方法了，非常感谢

追答

当然，你也可以遍历查找，但我不认为那个方法会更好。