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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour