Html 单词VBA：在编号列表段落之前和项目1之前插入

这感觉应该有一个简单的答案，但我找不到。作为将数百个word文档转换为纯HTML的工作的一部分，我使用vba对文档进行爬网并添加适当的标记。列表段落出现了一个问题，因为在每个列表之前插入标记会将其放在第一行（即，它会将项目#1向下撞击，而新项目是“1”）。insert after方法在列表末尾工作正常。VBA粘贴在下面。有什么想法吗？谢谢

Sub listparagraphtagging()
    Dim aList As list
    Dim rng As Range

    For Each aList In ActiveDocument.Lists
        aList.Range.InsertParagraphBefore
        aList.Range.InsertBefore "<ul>"
        aList.Range.InsertAfter "</ul>"
    Next
End Sub

子列表段落标记（）
模糊列表
变暗rng As范围
对于ActiveDocument.List中的每个列表
aList.Range.InsertParagraphBefore
aList.Range.InsertBefore“
”
aList.Range.InsertAfter“
”
下一个
端接头

好吧，去派对有点晚了，但试试看：）

子列表段落标记（）
模糊列表
变暗rng As范围
将段落改为段落
对于ActiveDocument.List中的每个列表
对于aList.Range.parages中的每个段落
设置rng=参数范围
rng.InsertBefore“
”
rng.End=rng.End-1
rng.塌陷和塌陷
rng.Text=“
”
下一个
下一个
端接头

Sub listparagraphtagging()
    Dim aList As List
    Dim rng As Range
    Dim para As Paragraph

    For Each aList In ActiveDocument.Lists
        For Each para In aList.Range.Paragraphs
            Set rng = para.Range
            rng.InsertBefore "<ul>"
            rng.End = rng.End - 1
            rng.Collapse wdCollapseEnd
            rng.Text = "</ul>"
        Next
    Next
End Sub