Freigeben über

CustomXMLSchemaCollection.Add-Methode (Office)

Ermöglicht das Hinzufügen von mindestens einem Schema zu einer Schemaauflistung, die dann einem Datenstrom im Datenspeicher und der Schemabibliothek hinzugefügt werden kann.

Syntax

Ausdruck. Hinzufügen (NamespaceURI, Alias, FileName, InstallForAllUsers)

Ausdruck Ein Ausdruck, der ein CustomXMLSchemaCollection-Objekt zurückgibt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
NamespaceURI Optional String Enthält den Namespace des Schemas, das der Auflistung hinzugefügt werden soll. Falls das Schema bereits in der Schemabibliothek vorhanden ist, wird es mit dieser Methode von dort abgerufen.
Alias Optional String Enthält den Alias des Schemas, das der Auflistung hinzugefügt werden soll. Falls der Alias bereits in der Schemabibliothek vorhanden ist, kann er mithilfe dieses Arguments von der Methode gefunden werden.
FileName Optional String Enthält den Speicherort des Schemas auf einem Datenträger. Wenn dieser Parameter angegeben wird, wird das Schema der Auflistung und der Schemabibliothek hinzugefügt.
InstallForAllUsers Optional Boolescher Wert Gibt an, ob im Fall, dass die Methode das Schema zur Schemabibliothek hinzufügt, die Schemabibliotheksschlüssel in die Registrierung geschrieben werden sollen (HKey_Local_Machine für alle Benutzer oder HKey_Current_User nur für den aktuellen Benutzer). Der Parameter standardmäßig auf false festgelegt und schreibt in HKey_Current_User.

Rückgabewert

CustomXMLSchema

Beispiel

Im folgenden Beispiel wird der Schemaauflistung ein Schema hinzugefügt, ein einzelner Knoten darin ausgewählt sowie anschließend der Knoten für die aufrufende Prozedur zurückgegeben.

 Function AddSchema() 
    On Error GoTo Err 
 
    Dim objCustomXMLSchemaCollection As CustomXMLSchemaCollection 
    Dim cxp1 As CustomXMLSchema 
    Dim cxn As CustomXMLNode 
 
    ' Adds a schema to the collection.

    cxp1 = objCustomXMLSchemaCollection.Add("urn:invoice:namespace", "coreDefinitions", "wdCore.xsd", True) 
 
 ... 
 
    Set cxn = cxp4.SelectSingleNode("//*[@quantity < 4]") 
 
    AddSchema = cxn 
      
    Exit Function 
                 
 ' Exception handling. Show the message and resume. 
 Err: 
        MsgBox (Err.Description) 
        Resume Next 
 End Function

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

  • Last updated on