Word 문서 에서 CustomXmlDocument 바 꾸 기
1547 단어 document
Private Sub TreeView1_BeforeLabelEdit(Cancel As Integer)
End Sub
Private Sub UserForm_Activate()
Dim oCustXMLPart As CustomXMLPart
Dim oNode As CustomXMLNode
Dim oNodeChild As CustomXMLNode
Dim oNodeChildChild As CustomXMLNode
Dim i As Long
Dim tRoot As Node
On Error Resume Next
ActiveDocument.CustomXMLParts(4).Delete
On Error GoTo 0
Set oCustXMLPart = ActiveDocument.CustomXMLParts.Add
oCustXMLPart.LoadXML ("<DocElement><Name>Joe</Name><Age>41</Age><Multi><Item1>A</Item1><Item2>B</Item2></Multi></DocElement>")
Set oNode = oCustXMLPart.DocumentElement
Set tRoot = TreeView1.Nodes.Add
tRoot.Text = "DocElement"
tRoot.Key = "DocElement"
Iterator oNode, tRoot
End Sub
Sub Iterator(ByRef Element As CustomXMLNode, ByRef tNode As Node)
Dim Childe As CustomXMLNode
Dim subNode As Node
For Each Childe In Element.ChildNodes
If Childe.NodeType = msoCustomXMLNodeText Then
Set subNode = TreeView1.Nodes.Add(tNode.Key, tvwChild, Childe.XPath, Childe.Text)
ElseIf Childe.NodeType = msoCustomXMLNodeElement Then
Set subNode = TreeView1.Nodes.Add(tNode.Key, tvwChild, Childe.XPath, Childe.BaseName)
If Childe.HasChildNodes Then
Iterator Childe, subNode
End If
End If
Next
End Sub
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
Java - PDF 문서에서 목록을 만드는 방법순서가 지정된 목록(예: 번호 매기기 목록), 순서가 지정되지 않은 목록(예: 글머리 기호 목록) 및 중첩 목록입니다. 이 기사에서는 을 사용하여 Java에서 번호 매기기 목록, 글머리 기호 목록 및 다단계 목록을 ...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.