Метод CustomXMLParts.Add (Office)

Статья
04/07/2023

Позволяет добавить в файл новый элемент CustomXMLPart .

Синтаксис

expression. Add (XML, SchemaCollection)

Выражение Выражение, возвращающее объект CustomXMLParts .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
XML	Необязательный	String	Содержит XML-код, добавляемый к созданному элементу CustomXMLPart.
SchemaCollection	Необязательный	CustomXMLSchemaCollection	Представляет набор схем, используемых для проверки этого потока.

Возвращаемое значение

CustomXMLPart

Пример

В следующем примере добавляется новый элемент CustomXMLPart, выбирается Элемент CustomXMLPart с помощью условий поиска, а затем выбирается один узел из этой части.

Sub ShowCustomXmlParts() 
    On Error GoTo Err 
 
    Dim cxp1 As CustomXMLPart 
 
    Dim cxn As CustomXMLNode 
    Dim cxns As CustomXMLNodes 
    Dim strXml As String 
    Dim strUri As String 
 
        ' Example written for Word. 
 
        ' Add a custom XML part. 
        ActiveDocument.CustomXMLParts.Add "<custXMLPart />" 
 
        ' Returns the first custom XML part with the given root namespace. 
        Set cxp1 = ActiveDocument.CustomXMLParts("urn:invoice:namespace")         
 
        ' Get a node using XPath.                              
        Set cxn = cxp1.SelectSingleNode("//*[@quantity < 4]")  
     
    Exit Sub 
                 
' Exception handling. Show the message and resume. 
Err: 
        MsgBox (Err.Description) 
        Resume Next 
End Sub

См. также

Элементы объекта CustomXMLParts

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через