list - 通过 VBA 查找所有列表项

Question

我正在尝试设置发布到网站的文档，因此需要在列表项之前和之后添加一些 HTML 标记。但是，它没有选择列表项。有人可以帮忙吗？谢谢。

    sub format_list()

            Dim para as Paragraph
            Dim is_list_item as Boolean

            is_list_item = False

            For Each para In ActiveDocument.Paragraphs

                    If para.Range.ListFormat.ListType = WdListType.wdListBullet Then

                            is_list_item = True
                            para.Range.InsertBefore "<li>"
                            para.Range.InsertAfter "</li>"

                    End If

            Next

    End Sub

Answer 1

尝试使用以下代替para.Range.InsertAfter "</li>"

para.Range.Select
Selection.EndKey Unit:=wdLine
Selection.TypeText Text:="</li>"