Objet XMLSchemaReferences (Word)

Collection d'objets XMLSchemaReference qui représentent les espaces de noms uniques associés à un document.

Remarques

Utilisez la propriété XMLSchemaReferences pour renvoyer une collection de schémas attachés à un document. L'exemple suivant effectue une boucle dans les schémas attachés à un document. Si elle détecte que le schéma spécifié, il recharge Si elle ne trouve pas le schéma spécifié, il attache le schéma au document.

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

Remarque

[!REMARQUE] Le schéma SimpleSample est inclus dans le Kit de développement Smart Document SDK. Pour plus d'informations, consultez ce Kit de développement sur le site Web MSDN de Microsoft.

Voir aussi

Référence du modèle objet Word

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.