XMLNode.ValidationStatus (Word)

Devuelve una constante WdXMLValidationStatus que representa si un elemento o atributo es válido de acuerdo con el esquema adjunto. Posibles valores de retorno son wdXMLValidationStatusCustom, wdXMLValidationStatusOK.

Esta propiedad puede devolver cualquiera de las dos constantes WdXMLValidationStatus siguientes. | wdXMLValidationStatusCustom| Indica que se utilizó el método SetValidationError para establecer la propiedad ValidationErrorText en una cadena de texto personalizada. | | wdXMLValidationStatusOK| Indica que un atributo o elemento XML es válido de acuerdo con el esquema adjunto. | Si bien son las dos únicas constantes con nombre que permite la propiedad ValidationStatus, hay muchos más valores sin nombre que provienen del componente MSXML 5.0 incluido en Microsoft Word.

Dim objNode As XMLNode 
Dim strValid As String 
 
For Each objNode In ActiveDocument.XMLNodes 
 objNode.Validate 
 If objNode.ValidationStatus <> wdXMLValidationStatusOK Then 
 strValid = strValid & objNode.BaseName & vbTab & _ 
 objNode.ValidationErrorText & vbCrLf 
 End If 
Next 
 
MsgBox "The following elements do not validate against " & _ 
 "the schema." & vbCrLf & vbCrLf & strValid & vbCrLf & _ 
 "You should fix these elements before continuing."