Objeto XMLSchemaReferences (Word)

Colección de objetos XMLSchemaReference que representa los espacios de nombres únicos adjuntan a un documento.

Comentarios

Utilice la propiedad XMLSchemaReferences para devolver una colección de esquemas adjuntos a un documento. En el siguiente ejemplo se recorre los esquemas adjuntos a un documento. Si se encuentra el esquema especificado, éste carga; Si no encuentra el esquema especificado, adjunta el esquema al documento.

Sub VerifySampleSchema() 
 Dim objNS As XMLNamespace 
 Dim objSchema As XMLSchemaReference 
 Dim blnSchemaAttached As Boolean 
 
 For Each objSchema In ActiveDocument.XMLSchemaReferences 
 If objSchema.NamespaceURI <> "SimpleSample" Then 
 blnSchemaAttached = False 
 Else 
 objSchema.Reload 
 blnSchemaAttached = True 
 Exit For 
 End If 
 Next 
 
 If blnSchemaAttached = False Then 
 Set objNS = Application.XMLNamespaces.Item("SimpleSample") 
 objNS.AttachToDocument (ActiveDocument) 
 End If 
End Sub

Vea también

Referencia de modelos de objetos de Word

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.