MS Word VBA를 사용하여 Word 문서의 중첩 목록을 HTML 중첩 목록으로 변환

Question

MS Word VBA 사용 Word 문서의 다음 중첩 목록을 HTML 중첩 목록으로 변환하는 방법은 무엇입니까? Word-VBA에서 알고있는 ActiveDocument.Lists은 모든 목록 모음이며 ListParagraphs은 목록의 목록 항목 모음입니다.

Word 문서 중첩 된 목록 :

HTML 중첩 된 목록 :하지만 Word 문서에서 다음과 같은 중첩 된리스트의 핸들을 얻을 이러한 컬렉션을 반복 드릴 수 없습니다

<ol> 
    <li>Test1</li> 
    <li>Test2</li> 
    <ul> 
     <li>Test2a</li> 
     <li>Test2b</li> 
    </ul> 
    <li>Test3</li> 
    <li>Test4</li> 
</ol> 

UPDATE :

사용자 @TimWilliams의 코드를 사용하면 하위 목록을 실제로 별개의 목록 2 (아래 그림 참조)로 처리하는 다음과 같은 결과가 발생합니다. 그러나 목록 2가 실제로 목록 1의 중첩 목록임을 알아야합니다. 어떻게이 작업을 수행 할 수 있습니까?

List: 1  Level: 1  Label: 1.  Text: Test1 
List: 1  Level: 1  Label: 2.  Text: Test2 
List: 1  Level: 1  Label: 3.  Text: Test3 
List: 1  Level: 1  Label: 4.  Text: Test4 
List: 2  Level: 2  Label: a)  Text: Test2a 
List: 2  Level: 2  Label: b)  Text: Test2b 

Answer 1

당신이 시작할 수 있어야 :

Sub Tester() 

    Dim doc As Document, l As List, lp, i, x 

    Set doc = ActiveDocument 

    For x = 1 To doc.Lists.Count 

     Set l = doc.Lists(x) 

     For i = 1 To l.ListParagraphs.Count 
      Set lp = l.ListParagraphs(i).Range 
      Debug.Print "List: " & x, _ 
         "Level: " & lp.ListFormat.ListLevelNumber, _ 
         "Label: " & lp.ListFormat.ListString, _ 
         "Text: "; Replace(lp.Text, vbCr, "") 

     Next i 
    Next x 

End Sub 

편집 :은 새로운 문서를 열고 귀하의 예제 목록에 위의 코드를 실행, 이것은 내가 얻을 출력됩니다.

List: 1  Level: 1  Label: 1.  Text: Test1 
List: 1  Level: 1  Label: 2.  Text: Test2 
List: 1  Level: 2  Label: a.  Text: Test2a 
List: 1  Level: 2  Label: b.  Text: Test2b 
List: 1  Level: 1  Label: 3.  Text: Test3 
List: 1  Level: 1  Label: 4.  Text: Test4 

어떻게 든 다르게 생성있어 우리의 목록처럼 보인다 : 내 하위 목록 항목을 들여 쓰기 Shift 키 탭을 다시 최상위 목록을 얻을하는 탭을 사용했다.