Objeto CustomXMLValidationErrors (Office)

Representa uma coleção de objetos CustomXMLValidationError .

Exemplo

O exemplo seguinte adiciona uma parte personalizada e, em seguida, adiciona um nó subordinado a essa parte. Quaisquer erros que ocorram são adicionados à coleção CustomXMLValidationErrors e, em seguida, exibidos na janela de depuração.

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 

Confira também

• CustomXMLValidationErrors object members (Membros do objeto CustomXMLValidationErrors)
• Referência do modelo de objeto

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.