次の方法で共有

CustomXMLParts.Add メソッド (Office)

  • [アーティクル]

新しい CustomXMLPart をファイルに追加できます。

構文

式。追加 (XML、 SchemaCollection)

式CustomXMLParts オブジェクトを返す式。

パラメーター

名前 必須 / オプション データ型 説明
XML 省略可能 String 新しく作成された CustomXMLPart を追加する XML が含まれています。
SchemaCollection 省略可能 CustomXMLSchemaCollection このストリームを検証するための一連のスキーマを表します。

戻り値

CustomXMLPart

例

次の例では、新しい CustomXMLPart を追加し、検索条件を使用して CustomXMLPart を 選択し、そのパーツから 1 つのノードを選択します。

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

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。