表示 CustomXMLValidationError 对象的集合。
示例
以下示例添加一个自定义部件，然后将子节点添加到该部件。 出现的任何错误都将被添加到 CustomXMLValidationErrors 集合，并显示在“调试”窗口中。
Dim ValErrors As CustomXMLValidationErrors
Dim ValError As CustomXMLValidationError
Dim cxp1 As CustomXMLPart
Dim intError As Integer
On Error Go To validation_error
With ActiveDocument
' Add and populate a custom xml part
set cxp1 = .CustomXMLParts.Add "<invoice>"
' Add a node
cxp1.AddNode "<quantity>", "supplier", "urn:invoice:namespace"
End With
If ValErrors.Count > 0 then
For Each ValError In ValErrors
DeBug.Print("Error name: " & ValError.Name & " Error description: " & ValError.Text)
Next
End If
Exit Sub
validation_error:
CustomXMLValidationErrors.Add(ValError.Name, ValError.Text))
Resume
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。