MS Word VBAを使用してWord文書の入れ子リストをHTML入れ子リストに変換する

Question

MS Word VBAを使用するWord文書内の次の入れ子リストをhtml入れ子リストに変換する方法を教えてください。私はWord-VBAで知っているActiveDocument.Listsはすべてのリストのコレクションであり、ListParagraphsはリストのリストアイテムのコレクションです。しかし、私は、Word文書に次のネストされたリストのハンドルを取得するためにこれらのコレクションをループにできないよ：

Word文書ネストされたリスト：

HTMLネストされたリスト：

<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 

EDIT：は新鮮な文書を開くと、あなたの例のリストに上記のコードを実行している、これは私が手に出力されます。

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キーを押しながらタブをバックトップレベルのリストを取得するには、タブを使用していました。