共用方式為


Office) (CustomXMLPart.AddNode 方法

會新增節點至 XML 樹狀目錄。

語法

運算式AddNode (ParentNameNamespaceURINextSiblingNodeTypeNodeValue)

表達 會傳回 CustomXMLPart 物件的運算式。

參數

名稱 必要/選用 資料類型 描述
Parent 必要 CustomXMLNode 代表應在底下新增此節點的節點。 如果是新增屬性,則此參數代表應新增屬性的元素。
Name 選用 String 代表要新增之節點的基礎名稱。
NamespaceURI 選用 String 代表要附加之元素的命名空間。 需要這個參數,才能附加 msoCustomXMLNodeElementmsoCustomXMLNodeAttribute類型的節點;否則會忽略它。
NextSibling 選用 CustomXMLNode 代表應成為新節點的下一個同層級節點。 如果未指定,節點會新增至父節點的子系的結尾。 新增的類型 msoXMLNodeAttribute 會略過此參數。 如果節點不是上層子項,會顯示錯誤。
NodeType 選用 MsoCustomXMLNodeType 會指定要附加的節點類型。 如果未指定此參數,則會假定的類型 不是 msoCustomXMLNodeElement
NodeValue 選用 String 用於為允許文字的附加節點設定值。 如果該節點不能輸入文字,則會忽略該參數。

註解

如果 AddNode 作業會導致樹狀目錄結構無效,則不會執行附加並顯示錯誤訊息。

範例

下列範例會示範如何將節點新增至 CustomXMLPart 物件。

Sub AddNodeCustomXmlParts() 
 
    Dim cxp1 As CustomXMLPart 
    Dim cxn As CustomXMLNode 
     
    With ActiveDocument 
        ' Add and populate a custom xml part 
        Set cxp1 = .CustomXMLParts.Add("<invoice />") 
         
        ' Set the parent node  
        Set cxn = cxp1.SelectSingleNode("/invoice") 
         
        ' Add a node under the parent node 
        cxp1.AddNode cxn, "upccode", "urn:invoice:namespace" 
 
    End With 
     
End Sub

另請參閱

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應