XMLNode.FirstChild (Word)

Returns a DiagramNode object that represents the first child node of a parent node.

Use the LastChild property to access the last child node. Use the Root property to access the parent node in a diagram.

Sub FirstChild() 
 Dim shpDiagram As Shape 
 Dim dgnRoot As DiagramNode 
 Dim dgnFirstChild As DiagramNode 
 Dim dgnLastChild As DiagramNode 
 Dim intCount As Integer 
 
 'Add organizational chart diagram to the current document 
 Set shpDiagram = ActiveDocument.Shapes.AddDiagram _ 
 (Type:=msoDiagramOrgChart, Left:=10, _ 
 Top:=15, Width:=400, Height:=475) 
 
 'Add the first node to the diagram 
 Set dgnRoot = shpDiagram.DiagramNode.Children.AddNode 
 
 'Add three child nodes 
 For intCount = 1 To 3 
 dgnRoot.Children.AddNode 
 Next intCount 
 
 'Assign the first and last child nodes to variables 
 Set dgnFirstChild = dgnRoot.Children.FirstChild 
 Set dgnLastChild = dgnRoot.Children.LastChild 
End Sub