XMLNode.ValidationStatus (Word)

Retorna uma constante WdXMLValidationStatus que representa se um elemento ou atributo é válido de acordo com o esquema anexo. Os valores de retorno possíveis são wdXMLValidationStatusCustom, wdXMLValidationStatusOK.

Essa propriedade pode retornar uma das duas constantes WdXMLValidationStatus a seguir. | wdxmlvalidationstatuscustomwdxmlvalidationstatuscustom| Indica que o método SetValidationError foi usado para definir a propriedade ValidationErrorText como uma cadeia de caracteres de texto Personalizada. | | wdXMLValidationStatusOK| Indica que um atributo ou elemento XML é válido de acordo com o esquema anexado. | Enquanto essas são as constantes nomeadas apenas dois que permite a propriedade ValidationStatus, existem muitos valores não-nomeados mais provenientes do componente MSXML 5.0 incluído no Microsoft Word. Para obter uma lista mais completa de valores possíveis e seus significados, consulte a referência do esquema XML do Microsoft Word no site Microsoft Developer Network (MSDN).

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."